Example - Val Function

1. Sub main

   1. Dim Msg

      Dim YourVal As Double

      YourVal = Val(InputBox$("Enter a number"))

      Msg = "The number you enered is: " & YourVal

      MsgBox Msg

   End Sub