Sgn(number) returns -1 if number is negative, 0 if number is 0, 1 if number is positive.
Sub mathDemo11() Debug.Print Sgn(7) End Sub