Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim testField

        Dim myPrincipal As new Principal

        'myPrincipal.address1= "1313 Mocking Bird Lane"

        testField = If(myPrincipal?.Address1, "replacement text if field is Nothing/null")

        Console.WriteLine(testField)

    End Sub

​

    Public Class Principal

​

        Public Property Address1

​

        Public Property City

​

        Public Sub New()

        End Sub

    End Class

End Module

​