请问如何用vb编写一个简单的密码验证程序？

关于我想用if语句编写一个简单的密码验证程序。比如说：面板上有一个textbox和button控件，如果textbox的值是123则显示另外一个窗体( ow)如果错误则用msgbox显示密码错误。不知要如何写这个程序？的问题

在窗体form1上添加一个textbox和commandbutton控件，如果textbox的值是123则显示另外一个窗体( ow)如果错误则用msgbox显示密码错误。设置Textbox的PasswordChar为*。
Option Explicit
Const vbKeyDecPt = 46
Private Sub Command1_Click()
If Val(Text1) = 123 Then
Form2。
Show
Me。Hide
Else
MsgBox “密码不正确,请重新输入”, vbExclamation + vbOKOnly, “提示”
Text1。SetFocus
Text1。SelStart = 0
Text1。
SelLength = Len(Text1)
Exit Sub
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) ‘限制textbox只能输入数字
If (KeyAscii >= vbKey0 And KeyAscii