rskar

    Dim s As String, d As Date, x As Single, y As Double, i As Integer
    s = Empty: d = Empty: x = Empty: y = Empty: i = Empty
    Debug.Print s, d, x, y, i

    Dim x
    x = Null
    
    Debug.Print "x", x
    Debug.Print "x = x", x = x
    Debug.Print "x <> x", x <> x
    Debug.Print "x = 0", x = 0
    Debug.Print "0 = x", 0 = x
    Debug.Print "0 + x", 0 + x
 

    Dim y
    y = Nothing
    Debug.Print "y", y