在窗体Form1上画一个文本框，名称为Text1，内空；再画一个命令按钮，名称为Cmd1，标题为输入

Private Sub Cmd1_Click() Text1.Text = MsgBox("是否输入", vbYesNo) End Sub Private Sub Form_Load() Text1.Text = "" Cmd1.Caption = "输入" End Sub