Example - Sgn Function

Sub Main

Dim MyVar1, MyVar2, MyVar3, MySign

MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0

MySign = Sgn(MyVar1)    

MySign = Sgn(MyVar2)

MySign = Sgn(MyVar3)

MsgBox "The value is " &Sgn(MyVar1)

MsgBox "The value is " &Sgn(MyVar2)

MsgBox "The value is " &Sgn(MyVar3)

End Sub