Авторизация в своей программе, исправить код - VB

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

Помогите доделать программу

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer
5 i = 0
t0 = Timer
10 i = i + 1
If Text1.Text = "Головко" And Text2.Text = "1234" Or Text1.Text = "Ленда" And Text2.Text = "1234" Or Text1.Text = "Огиль" And Text2.Text = "1234" Then
Label3.Caption = "Доступ предоставлен"
ElseIf i > 3 Then
Label3.Caption = "Доступ отказан"
 
GoTo 5
Else
Label3.Caption = "Вы привысили число попыток"
Text1.Text = ""
Text2.Text = ""
End If
GoTo 10
20 End Sub

Решение задачи: «Авторизация в своей программе, исправить код»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i As Integer
 
Private Sub enter_Click()
'проверка на кол-во попыток
If i = 3 Then
MsgBox "Вы привысили число попыток"
Exit Sub
End If
'проверка логина и пороля
If Text1.Text = "Головко" And Text2.Text = "1234" Then
i = 0
GoTo p1
Else
i = i + 1
MsgBox "Доступ отказан"
Exit Sub
End If
'начало
p1:
MsgBox "Доступ предоставлен"
End Sub
 
Private Sub Form_Load()
i = 0
End Sub