例: CVar function

' The Abs function requires a numeric or Variant argument.
' Convert a string value to Variant and use it in Abs.
Dim gNum As String
gNum$ = "-1"
Print Abs(CVar(gNum$))   ' Prints 1 (absolute value of -1)
Print Abs (gNum$)        ' Generates an error