Private Sub Command1_Click()
Dim x As String
Open "d:/password.txt" For Input As 1
Do While Not EOF(1)
Input #1, x
Loop
Close #1

If Len(Text1.Text) = 0 Then n = MsgBox("请输入七位数密码！", vbCritical + vbDefaultButton1, "提示信息")
If Text1.Text = x Then
MsgBox "正确！"
Else
m = MsgBox("请输入正确密码！", vbCritical + vbDefaultButton1, "提示信息")

End If

End Sub