Inputbox

Sub formasInput()

Dim varTexto As String, varNum As double

‘ Nessa forma temos INPUTBOX como função :
varTexto = InputBox(“Insira um texto”, “Aceita qualquer caracter”)

‘ Aqui temos INPUTBOX como metodo :
varNum = Application.InputBox(“Insira um número”, “Aceita somente números”, 1)

MsgBox “Você inseriu :” & Chr(13) & _
varTexto & Chr(13) & varNum, , “Resultado dos InputBox”

End Sub