Mengecek Password

Dim Hitung As Integer  'Deklarasi variabel global
Dim Jawab As String    'Deklarasi variabel global
Private Sub Form_Load()
  Hitung = 0  'Saat form diload, Hitung mula-mula masih 0
End Sub

Private Sub cmdOK_Click()
  'Ulangi selama text1 tdk sama dengan "example"
  Do While Text1.Text <> "example"
    Jawab = Text1.Text = "example"  'Inisialisasi Jawab
      'Jika Jawab tdk sama dengan "example"
      If Jawab <> "example" Then
        Hitung = Hitung + 1  'Counter bertambah satu
        Tampung (Hitung)      'Hitung ke fungsi Tampung
        If Hitung = 3 Then    'Jika Hitung = 3, maka...
            'Tampilkan pesan
            Print "Password Blocked!"
            Text1.Enabled = False  'Text1 tdk bisa diakses
            cmdOK.Enabled = False  'cmdOK tdk bisa diakses
            cmdCancel.Default = True 'Hanya cmdCancel yg bisa diakses
        End If
        Exit Sub                  'Keluar dari prosedur
      Else    'Jika Jawab = "example"
        Exit Do  'Keluar dari Loop
      End If
  Loop
  Print "Welcome"  'Tampilkan pesan sukses
  'terserah Anda.. setelah ini akan apa...?
End Sub

Function Tampung(Hitung)
Dim Hasil As Integer
    Hasil = 0  'Inisialisasi variabel Hasil
    Hasil = Hasil + Hitung
    Text1.SetFocus  'Fokuskan kursor ke text1 kembali
    SendKeys "{Home}+{End}"  'Highlight text1
    Print "Kesempatan ke-" & Hasil  'Tampilkan sudah berapa kali salah password
End Function

Private Sub cmdCancel_Click()
  Unload Me    'Keluar dari program
End Sub

'Jika di text1 telah diisi, tombol OK siap dienter
Private Sub Text1_KeyPress(KeyAscii As Integer)
  cmdOK.Default = True
End Sub