Val(string)
Returns the numeric value of a string of characters.
Example:
Sub main
Dim Msg
Dim YourVal As Double
YourVal = Val(InputBox$("Enter a number"))
Msg = "The number you enered is: " & YourVal
MsgBox Msg
End Sub