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 Class
End Module