Validação de Usuário, login e senha

Boa noite amigos ... Estou meio frustrado com um problema, depois de muito tentar, não consigo fazer com o botão Entrar (valide the usurário) clicando nele nada faz.

Consigo executar a Primeira ea Segunda parte do roteiro com Sucesso, mais uma Terceira parte nada Acontece

segue o código * Abaixo *. (Legenda:. Form_Loguin * / Text_Login ea Aba fazer Excel ficou com o Nome de Acesso)

agradeço a Ajuda'

procedimento para o botão entrar





Sub Entrar()

Usuario = Form_Loguin.Text_Login
Senha = Form_Loguin.Text_Senha

'primeira parte -verifica os capos vazios

If Form_Loguin.Text_Login = "" Then
MsgBox "Entre com o Nome de Usuário", vbInformation, "USUÁRIO"

Exit Sub

End If
If Form_Loguin.Text_Senha = "" Then
MsgBox "Entre Com a Senha do Usuário", vbInformation, "SENHA"

Exit Sub

End If

'Segunda parte - Verifica se é administador e se for entra

If Form_Loguin.Text_Login = "ADMIN" And Form_Loguin.Text_Senha = "ADMIN" Then
MsgBox "Bem vindo Administrador", vbOKOnly, "ACESSO LIBERADO"

Sheets("Login").Select

Exit Sub

End If

'Terceira parte - Verifica se o usuário e senha estão no banco de dados (daqui em diante,nada acontece)

linha = 2

Do Until Sheets("Login").Cells(linha, 1) = ""

If Sheets("Login").Cells(linha, 1) = Form_Loguin.Text_Login And Sheets("Login").Cells(linha, 2) = Form_Loguin.Text_Senha Then

MsgBox "Bem Vindo" & Usuario, vbOKOnly, "ACESSO LIBERADO"

Unload Form_Loguin
Sheets("Home").Select

Exit Sub

End If
linha = linha + 1
Loop

End Sub