Codigo do evento duplo clique do listbox

Dim valor_lista As Integer
Dim selecao As Integer
selecao = ListBox_Pesquisarnome.ListIndex

valor_lista = ListBox_Pesquisarnome.List(selecao, 0)



With UserForm_cADASTRO
    .TXTCODIGO.Value = ListBox_Pesquisarnome.List(selecao, 0)
    .TXTNOME.Value = ListBox_Pesquisarnome.List(selecao, 1)
    .TXTTELEFONE.Value = ListBox_Pesquisarnome.List(selecao, 2)
    .TXTEMAIL.Value = ListBox_Pesquisarnome.List(selecao, 3)

    .TXTCODIGO.SetFocus
    .TXTNOME.SetFocus

End With
Unload Me

Muito obrigado adGere , deu certinho. Agora sim . Abraços .