Ajuda - Formulário de Login

Boa tarde galera, preciso muito de uma ajuda.

Criei um formulário de login, que lê a Coluna(Login) e (Senha) de uma aba "Plan2"

O problema é,  se eu criar vários usuários, ele não funciona pois só está lendo a primeira linha das colunas...

Segue a linha de comando, do botão de "Logar"
Se vocês puderem me ajudar, onde eu tenho que acrescentar para que o comando leia a senha respectiva de cada usuário?

Citação :

Private Sub cmdEntrar_Click()
       
       If txtLogin = "" Then
           MsgBox "Digite o nome do usuário."
           Exit Sub
           txtLogin.SetFocus
       Else
         If txtSenha = "" Then
               MsgBox "Digite a senha do usuário."
               Exit Sub
               txtSenha.SetFocus
         End If
       End If
       
       col = 1
       Lin = 2
       While (Plan2.Cells(Lin, col) <> txtLogin)
           Lin = Lin + 1
           If Lin > 50 Then
               MsgBox "Usuário não cadastrado."
               Exit Sub
           End If
       Wend
       
       Dim senha As String
       Lin = 2
       col = 2
       senha = Plan2.Cells(Lin, col).Value
       
       If txtSenha <> senha Then
           MsgBox "A senha não confere."
           Exit Sub
       Else
           MsgBox "Seja bem vindo " & txtLogin
           Lin = 2
           col = 1
           While (Plan3.Cells(Lin, col) <> "")
               Lin = Lin + 1
           Wend
           Plan3.Cells(Lin, 1) = txtLogin.Value
           Plan3.Cells(Lin, 2) = txtSenha.Value
           Plan3.Cells(Lin, 3) = Now
           

           Plan1.Visible = xlSheetVisible
           Sheets("Plan1").Activate
           ActiveWindow.DisplayWorkbookTabs = True
           Hide
       End If
End Sub

Boa noite!!

Veja se esse modelo te ajuda.
http://www.sendspace.com/file/i51q79

Att

Não consigo abrir o arquivo, ta dando erro :s
to com office 2010

Bom dia!!

Eu estou no trabalho e uso a versão 2010, eu não tenho problemas para abrir o arquivo.


Ayy