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