Función InputBox

Muestra un indicador en un diálogo en el que el usuario puede introducir texto. La entrada se asigna a una variable.

La instrucción InputBox es un método adecuado para introducir texto a través de un diálogo. Confirme la entrada pulsando Aceptar o la tecla Retorno. La entrada se devuelve como valor de retorno de la función. Si se cierra el diálogo con Cancelar, InputBox devuelve una cadena de longitud cero ("").

InputBox (Prompt As String[, Title As String[, Default As String[, xpostwips As Integer, ypostwips As Integer]]]) As String

prompt: Cadena de texto que se muestra como mensaje en el diálogo.

título: expresión de cadena que se muestra en la barra de título del diálogo.

default: Cadena de texto que se muestra en el cuadro de texto de forma predeterminada si no se proporciona ninguna otra entrada.

xpostwips: Entero que especifica la posición horizontal del diálogo. La posición es una coordenada absoluta y no hace referencia a la ventana de LibreOffice.

ypostwips: Entero que especifica la posición vertical del diálogo. La posición es una coordenada absoluta y no hace referencia a la ventana de LibreOffice.

Si se omiten xpostwips y ypostwips, el diálogo se centra en la pantalla. La posición se especifica en twips.

Cadena

Sub ExampleInputBox
Dim sText As String
    sTexto  = InputBox ("Escriba una frase:","Estimado usuario")
    MsgBox ( sTexto , 64, "Confirmación de frase")
End Sub