Public Module modMain
Public Sub Main()
Dim title As String = "Mr."
Dim name As Object = DBNull.Value
Dim addressLine1 As String = title & " " & name
If IsDBNull(addressLine1) Then
Console.WriteLine("Null value")
Else
Console.WriteLine(addressLine1)
End If
End Sub
End Module
Mr.