program sederhana membuat password

sourcecode program password pada vb 6.0
buat 1 label,textbox,dan command button.
isikan sourcecode berikut pada command button..

Dim kesempatan As Integer
Private Sub Command1_Click()
kesempatan = kesempatan + 1
If (LCase(txtpassword.Text) = "erwin") Then
MsgBox "Passwordnya Benar!"
Else
MsgBox "Passwordnya Salah !"
If kesempatan < 3 Then
Else
End
End If
End If
End Sub

Private Sub Form_Load()

End Sub