Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Return a number from InputBox

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