VB工程中中passwordchar变量的应用，请高手帮我修改一下

4.21登录模块
Private Sub Command1_Click()
Dim j As Single

'数据有效性检查
If TxtUser = "张文龙" Then
End If
If TxtPwd = "123456" Then
Form2.Show
Form3.Hide
Else
MsgBox "密码错误，请重新输入密码"
Text1 = “”
Text2 = “”
Exit Sub
End If

Private Sub Command2_Click()
End

End Sub
请高手用passwordchar变量帮我把上面的代码修改一下，最好能写的详细点，本人VB水平很差，请各位不要见笑

Private Sub Command1_Click()
Dim j As Single
Dim passwordchar As String
'数据有效性检查
passwordchar = TxtUser.Text '对应用户名文本的名称
If passwordchar = "张文龙" Then
passwordchar = TxtPwd.Text '对应密码文本的名称
If passwordchar = "123456" Then
Form2.Show
Form3.Hide
Else
MsgBox "用户密码错误，请重新输入密码"
TxtUser = ""
TxtPwd = ""
Exit Sub
End If
End If

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load() Text1.PasswordChar = "*" End Sub

char表示单个字符嘛，string表示一串字符，当然也可以存储一个字符。如果确定只存储一个字符的话就用char，我想应该效率比高吧。 这两段都可以，vb会自动把char转换为string。 对了，你的vb是什么版本，6.0可没有char这种类型啊。