Example - Abs Function

1. Sub Main

   1. Dim Msg, X, Y

      X = InputBox("Enter a Number:")

      Y = Abs(X)

      Msg = "The number you entered is " & X

      Msg = Msg + ". The Absolute value of " & X & " is " & Y

      MsgBox Msg 'Display Message.

   End Sub