PC-DMIS Help Center - 2022.1
Click here to see this page in full context

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