Ayuda con login y matrices

[Zeta4]

Aun no lo consigo y el problema está en el bucle. Hace falta uno, no?

Código:

For i = 1 To 5 Step 1
            If Intento = 3 Then
                MsgBox("Error.")
            Else
                If BoxUsuario.Text = Matriz1(i) Then
                    j = i
                    If Boxontrasena.Text = Matriz2(j) Then
                        MsgBox("Exito.")
                    Else
                        MsgBox("Contraseña incorrecta.")
                        Intento = Intento + 1
                    End If
                Else
                    MsgBox("Usuario incorrecto.")
                    Intento = Intento + 1
                End If
            End If
Next