Example - Sgn Function

Sub Main()
   Dim MyVar1, MyVar2, MyVar3
   MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
   MsgBox "The value is " & Sgn(MyVar1)
   MsgBox "The value is " & Sgn(MyVar2)
   MsgBox "The value is " & Sgn(MyVar3)
End Sub