Val function

Val( string )

Returns the numeric value of a string of characters.

Sub Main
   Dim Msg
   Dim YourVal As Double
   YourVal = Val(InputBox$("Enter a number"))
   Msg = "The number you entered is: " & YourVal
   MsgBox Msg
End Sub