简单的VB对话框问题

这道题的要求是这样的：有三个按钮控件，其中comman1是输入按钮，command3是登录按钮，command2是退出按钮，还有一个列表框list1接收command1即输入按钮输入的信息，程序运行的时候command1按钮是不能使用的，只有当command3登录按钮在三次以内输入正确密码，command1才变为可用，我想要程序运行的时候，登录按钮只能实现输入三次密码，超过三次就自动退出程序，我写了一下程序，发现，运行的时候，只要不要输入密码超过三次，重新点击登录按钮的时候，输入密码的次数又重新计算了，这样的话，只要每一次点击登录按钮的时候输入密码次数不要超过三次，那么就可以无限制的输入密码，达不到一共只能输入三次的目的，请大家帮忙看看，要怎么才能实现，不管登录按钮点击了多少次，计算输入密码次数的变量countt不会重新计算，而是会一直累计下去的。
下面是我写的代码：

Private Sub Command1_Click()
a = InputBox("请输入学生名称,输入对话框")
Do While a <> ""
List1.AddItem a
a = InputBox("请输入学生名称,输入对话框")
Loop
End Sub

Private Sub Command2_Click()
a = MsgBox("真的要退出程序吗？", 4 + 48 + 256, "退出对话框")
If a = 6 Then
End
End If


End Sub

Private Sub Command3_Click()
a = InputBox("请输入密码,密码输入框")
Countt = 1
Do While a <> "123456"
b = MsgBox("你输入的密码不正确", 5 + 16 + 256, "密码核对框")
If b = 4 Then
a = InputBox("请输入密码,密码输