Example:

  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