Data Type Functions VisualBasic Script

Sub AddTwoNums2()
    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 = CSng(value1) + 2
    MsgBox mySum & "(" & value1 & "+2)"
End Sub