Example - IsEmpty Function

' This sample explores the concept of an empty variant
Sub Main()
    Dim x ' Empty
    x = 5 ' Not Empty - Long
    x = Empty ' Empty
    y = x ' Both Empty
    MsgBox "x" & " IsEmpty: " & IsEmpty(x)
End Sub