Option Explicit
Private Sub Command1_Click()
    Dim intResult As Integer
   
    intResult = MsgBox("你选择了退出登录，真的退出？", vbYesNo, "登录验证")
    If intResult = vbYes Then End
End Sub

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
        MsgBox text2 & ",请重新输入口令!"
  End If
 End Sub
---------------------------------------------------------------------------------------------------------------------------------------------
我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？

我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？
还想要在重新输入时候让光标自己停留在text2那里等待重新输入。
麻烦大家帮忙看看！

谢谢拉！第一个问题解决拉！

另外我 还想要在重新输入时候让光标自己停留在text1那里等待重新输入。  是text1

谢谢拉!