Sub main() frmLogin.Show End Sub

Public Function login(ByVal struser As String, ByVal strpwd As String) As Boolean If struser = "a" And strpwd = "a" Then login = True Else login = False MsgBox "输入的操作员名称或者口令非法，请注意输入的大小写敏感，重新输入吗？", vbInformation + vbYesNo, "非法的操作员口令" End If End Function

我想等msgbox返回是和否后进行判断 如果用户选“是”则重新输入，如是“否”这退出 该如何写呢？ 谢谢群众的发言！

If MsgBox( "输入的操作员名称或者口令非法，请注意输入的大小写敏感，重新输入吗？", vbInformation + vbYesNo, "非法的操作员口令")= vbOK Then
......
else
......