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

    Sub Main()
    
        Dim i As Integer
        For i = 1 To 100
            Dim f As Integer
            f = IIf(i Mod 3, 0, 1) Or IIf(i Mod 5, 0, 2)
            Dim buf As String
            If f = 0 Then
                buf = Format(i)
            Else
                buf = IIf(f And 1, "fizz", "") + IIf(f And 2, "buzz", "")
            End If
            Debug.Print buf
        Next i
    
    End Sub