Abs

Return the absolute value of a Long.

Dim A As Long, B As Long
B = -1234
A=Abs B      ' Return |B|.
Debug Dec A  ' Print 1234

See also FAbs.