RosettaCodeData/Task/User-input-Text/VBA/user-input-text.vba

Public Sub text()
    Debug.Print InputBox("Input a string")
    Debug.Print InputBox("Input the integer 75000", "Input an integer", 75000, Context = "Long")
End Sub