我是新入门的，VB高手们帮忙看一下这个代码到底哪错了？

100%你的要求

========If txtUserName.Text = "柏君软件" And txtPassword = "123456" Then MsgBox "你是合法用户，欢迎进入！", vbOKOnly + vbInformation, "欢迎进入"
Else '是如果不是“柏君软件”密码不是"123456" =======
这句的问题。。
你的代码加在了 THEN 后面。。 所以ELES 也要跟 IF 在一排
“if XX=YY then msgbox AA else msgbox BB”这样后面就减少一个END IF

或者
if XX=YY then
msgbox AA
else
msgbox BB
end if

这堆判断很淡疼。。报的什么错

出现两个Else太麻烦了改第一个为Elseif

Private Sub cmdOK_Click()
If txtUserName.Text = "" Then '如果txtUserName为空，即没有输入用户名
MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"
Exit Sub '退出这个过程
'如果输入了用户名
'如果输入的用户名是"柏君软件"且密码为"123456"
ElseIf txtUserName.Text = "柏君软件" And txtPassword = "123456" Then MsgBox "你是合法用户，欢迎进入！", vbOKOnly + vbInformation, "欢迎进入"
Else '是如果不是“柏君软件”密码不是"123456"
MsgBox "用户名或密码错误！", vbOKOnly + vbCritcal, "错误"
'清空txtUserNametxt及Password控件中的文本内容，让用户重新输入
txtUserName.Text = ""
txtPassword.Text = ""
End If

End Sub