Code Untuk Menghitung Kesalahan input Password

Dim jmlsalah As Single

Private Sub Command1_Click()

If Me.Text1 = "12345" Then
MsgBox "Selamat, password anda benar"
End
Else
MsgBox "Maaf, Anda salah memasukan Password"

If jmlsalah >= 4 Then
MsgBox "Maaf, Anda sudah 5 kali salah memasukan Password"
End
Else

jmlsalah = jmlsalah + 1

End If
End If
End Sub