帮小弟我看看这段代码，小弟我VB初学

帮我看看这段代码，我VB初学。
Private   Sub   Command1_Click()
Dim   user,   pass
user   =   Text1.Text
pass   =   Text2.Text
If   Text2.Text   =   pass   Then
MsBox   "你好 "   &   user   &   "，欢迎进入XXX系统 ",   vbOKOnly,   "进入系统 "
Form2.Show
Else
MsBox   "密码或用户名错误，请重新输入 ",   vbOKOnly,   "验证失败 "
End   Sub

Private   Sub   Command2_Click()
End
End   Sub



[解决办法]
dim user,pass --后面要有数据类型
pass 变量没有初始化，你输入的密码和谁比较呀！？
MSbox --msgbox

[解决办法]
pass = Text2.Text
If Text2.Text = pass Then

自己看下这两个值是不是永远都是相等的?