求一段代码，作用是：运行form1，弹出需要输入密码的对话框（密码：1234567890）

Private Sub Form_Load()
Dim StrA
StrA = InputBox("请输入密码", "密码框")
If StrA = "1234567890" Then
Form1.Show
ElseIf StrA <> "1234567890" Or StrA = "" Then
MsgBox "密码输入错误", vbOKOnly + vbCritical, "系统提示"
Unload Me
End If
End Sub

Private Sub Form_Load()
Dim pass$
While pass <> "1234567890"
pass = InputBox("请输入密码:", "登录")
Wend
End Sub

用到一条语句
messagebox（" "," "," ");
if password=="1234567890" then
form2.show
等等其他的