Find if any number is Positive, Negative or 0 using VB Script inbuilt Function 'Sgn'

Dim MyVar1, MyVar2, MyVar3, MySign

MyVar1 = 250 : MyVar2 = -351.44 : MyVar3 = 0

Msgbox Sgn(MyVar1)   ' Returns 1.

Msgbox Sgn(MyVar2)   ' Returns -1.

Msgbox Sgn(MyVar3)   ' Returns 0.

...