Sub AddTwoNums() Dim myPrompt As String Dim value1 As String Dim mySum As Single Const myTitle = "Enter data" myPrompt = "Enter a number:" value1 = InputBox(myPrompt, myTitle, 0) mySum = value1 + 2 MsgBox mySum & "(" & value1 & "+2)" End Sub