Programación VB: ingrese el nombre XX en el texto de la función, haga clic en Aceptar y aparecerá XX.

El botón representa CommandOK y el cuadro de texto representa TextName. Puede agregar otro botón para borrar automáticamente, llamado CommandEmpty.

Subcomando privadoOK_Click()

MsgBox TextName.Text amp; "¡Buena suerte!" vbOKOnly 'Si el nombre es Zhang San, aparecerá el cuadro de diálogo y se mostrará el contenido del archivo. El cuadro de diálogo será "¡Le deseo buena suerte a Zhang San!" ¡Buena suerte!" Si el nombre es John Doe, el contenido del cuadro de diálogo será "Buena suerte a John Doe", etc.

TextName.Text = "" 'Nombre vacío

End Sub

Subcomando privadoEmpty_Click()

Si no TextName.Text = "" Then TextName.Text = "" 'Nombre vacío

End Sub

Private Sub CommandEmpty_Click()

Si no, borre el nombre vacío. No vacío borrará el nombre

If TextName.Text = "" Then MsgBox "No has ingresado un nombre." If TextName.Text = "" Then MsgBox "No has ingresado un nombre".

End Sub

Puedes escribir repetidamente y al hacer clic en el botón "Borrar" se borrará automáticamente el contenido.

Espero que esto ayude al propietario. >