Função InputBox

Exibe um campo em um diálogo onde o usuário pode digitar texto. A entrada é atribuída a uma variável.

A instrução InputBox consiste em um método conveniente de se inserir texto por meio de uma caixa de diálogo. Para confirmar a entrada, clique em OK ou pressione Return. A entrada será retornada como o valor de retorno da função. Se você fechar a caixa de diálogo com Cancelar, InputBox retornará uma cadeia de caracteres vazia ("").

Sintaxe:

InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])

Valor de retorno:

String

Parâmetro:

Msg: expressão de cadeia de caracteres exibida como uma mensagem na caixa de diálogo.

Title: expressão de cadeia de caracteres exibida na barra de título da caixa de diálogo.

Default: expressão de cadeia de caracteres exibida como padrão na caixa de texto quando nenhuma outra entrada é fornecida.

x_pos: expressão de número inteiro que especifica a posição horizontal da caixa de diálogo. A posição é uma coordenada absoluta e não faz referência à janela do aplicativo Office.

y_pos: expressão de número inteiro que especifica a posição vertical da caixa de diálogo. A posição é uma coordenada absoluta e não faz referência à janela do aplicativo de escritório.

Se x_pos e y_pos forem omitidos, a caixa de diálogo será centralizada na tela. A posição é especificada em twips.

Exemplo:

Sub ExampleInputBox

Dim sText As String

    sText = InputBox ("Digite uma frase: ","Prezado Usuário")

    MsgBox ( sText , 64, "Confirmação da frase")

End Sub