Data Type Functions VisualBasic Script

Sub Age()
    Dim intAge As Integer, strYourAge As String
    intAge = InputBox("Enter your age:", "Age")
    strYourAge = "Your age is" & str(intAge) & "."
    MsgBox YourAge, vbOKOnly + vbInformation, "Age"
End Sub