Dim s1 As String = Nothing
If (s1 = Nothing) Then
   Call Console.WriteLine("String の Nothing は Nothing と等しいです。")
Else
   Call Console.WriteLine("String の Nothing は Nothing と等しくありません。")
End If

Dim s2 As String = String.Empty
If (s2 = Nothing) Then
   Call Console.WriteLine("String.Empty は Nothing と等しいです。")
Else
   Call Console.WriteLine("String.Empty は Nothing と等しくありません。")
End If

Dim n1 As Integer = 0
If (n1 = Nothing) Then
   Call Console.WriteLine("Integer の 0 は Nothing と等しいです。")
Else
   Call Console.WriteLine("Integer の 0 は Nothing と等しくありません。")
End If

Dim n2 As Integer = 1
If (n2 = Nothing) Then
   Call Console.WriteLine("Integer の 1 は Nothing と等しいです。")
Else
   Call Console.WriteLine("Integer の 1 は Nothing と等しくありません。")
End If

Dim d1 As DateTime = DateTime.Today
If (d1 = Nothing) Then
   Call Console.WriteLine("DateTime.Today は Nothing と等しいです。")
Else
   Call Console.WriteLine("DateTime.Today は Nothing と等しくありません。")
End If

Dim d2 As DateTime = New DateTime()
If (d2 = Nothing) Then
   Call Console.WriteLine("New DateTime() は Nothing と等しいです。")
Else
   Call Console.WriteLine("New DateTime() は Nothing と等しくありません。")
End If