IF complicado

Pessoal, estou com dificuldade para acertar esse codigo. Tenho um botão ande aciono a sub abaixo e tudo depende do Frame(Fr_Pendencia) para funcionar, se ele esta oculto roda o primeiro IF até ai funciona. Quando ele esta visivel comeca a complicação pois tenho que testar se existe seleção no (List_Pendencia), caso não, retorna a mensagem para selecionar, depois de selecionado segue as outras rotinas. Eu acho que estou colocando os IF no lugar errado. Isso tudo em um so botão.

Sub PesquisaLM()

Dim Resultado1 As String
Dim Resultado2 As String
Dim Resultado3 As String

Dim Sql_5 As String

If Frm_Mid.Fr_Pendencia.Visible = False Then
Dim sql As String
VConexao
Set Rst = New ADODB.Recordset
sql = "SELECT COUNT(*) FROM LMnr WHERE Status = 'Pendente'"
Set Rst = Bd_LM.Execute(sql)
If MsgBox("Existe LM(s) pendente(s) para transferência! Deseja transferir agora?", vbQuestion + vbYesNo, "Lista de Materiais") = vbYes Then
Frm_Mid.Fr_Pendencia.Visible = True
Desconect_2
Else
Resultado1 = MsgBox("Não existe LM pendentes para transferência!", vbCritical, "Lista de Materiais")
Desconect_2
Exit Sub

If Frm_Mid.Fr_Pendencia.Visible = True Then

If Frm_Mid.List_Pendencia.ListIndex = -1 Then
Resultado2 = MsgBox("Selecione uma LM para transferência!", vbCritical, "Lista de Materiais")
Exit Sub

Else

ConexaoPesquisa1

Sql_5 = "SELECT LM_1 FROM LMnr WHERE LM_1 Like '%" & Delta & "%'"
Set T_Pesquisa1 = T_Banco1.Execute(Sql_5)

If Not T_Pesquisa1.EOF Then
Resultado3 = MsgBox("LM Já cadastrada!", vbCritical, "Pesquisa LM")
Exit Sub

Else

AbreBancoTransferencia
AbreBancoLMDestino
Transferindo
End If
   End If
      End If
        End If
          End If
End Sub