Логин и пароль для входа - VB

Формулировка задачи:

Есть программа, перед тем как зайти нужно чтоб в отдельном окне запрашивался логин и пароль прописанные в коде.. Что-то наклепал:

Private Sub Form_Load()
If InputBox("Г‹Г®ГЈГЁГ*:") = "qwerty" Then
   Else
      Unload Me
   End If
  If InputBox("ГЏГ*Г°Г®Г«Гј:") = "1234" Then
   Else
      Unload Me
      End If
End Sub

Решение задачи: «Логин и пароль для входа»

textual
                            Листинг программы 
                        

                            Dim CancelEx As Boolean
 
Private Sub Command1_Click()
a$ = Text1.Text
If a$ = "12345678" Then
CancelEx = False
Unload Parol
Else
End
End If
End Sub
 
Private Sub Form_Activate()
Text1.PasswordChar = "*"
Command1.Caption = "Ввод"
CancelEx = True
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If CancelEx = True Then Cancel = True
If CancelEx = False Then Cancel = False
End Sub
                        