[Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável

Pessoal, bom dia!

Minha primeira postagem aqui no fórum, caso eu cometa algum erro me avisem rs... Trabalho ha algum tempo com access, no entanto nunca utilizei formulários e muito pouco VBA.

Minha duvida parece ser bem básica, procurei nos tópicos já abertos a resposta mas não encontrei o que preciso exatamente.

Tenho um formulário de Pesquisa, com um ListBox e um campo texto onde realizo a pesquisa (Até aí tudo bem). Quando eu encontrar o registro desejado, eu gostaria de dar um duplo clique sobre o mesmo para abrir outro formulário com maiores detalhes do registro selecionado (que buscarei em outra consulta já pronta no banco de dados).

O que eu preciso é no momento do duplo clique "pegar" o campo chave que está no ListBox, armazenar em uma variável para utilizá-lo como chave para a consulta que alimentará formulário de detalhes.

Estou tentando utilizar o codigo abaixo para armazenar o campo chave da consulta. Essa chave está armazenado na coluna 5 do ListBox. Mas está dando erro porque com certeza estou fazendo algo errado.

   Dim CODIGO As Integer
   CODIGO = lstImoveis.Column(5)

Desde já agradeço!
1Abraço!

Crie a variavel Codigo como global em um módulo.
Global Codigo as integer

Crie uma função para pegar a variável

Public Function fncCod()
fncCod = Codigo
end function

Passe o valor da listbox para a variável

Filtre sua consulta (Campo codigo) do novo formulário com a função fncCod()