Example - IsEmpty Function

1. ' This sample explores the concept of an empty variant

   Sub Main

   1. Dim x' Empty

      x = 5' Not Empty - Long

      x = Empty' Empty

      y = x' Both Empty

      MsgBox "x" & " IsEmpty: " & IsEmpty(x)

   End Sub