Posicionar no registro dentro de uma ListBox (caixa de listagem)

Saudações.

Tenho um formulário não acoplado que tem controle via VBA de botões de navegação de registros.

E tem uma ListBox (caixa de listagem) com os mesmo registros (origem da mesma tabela).

O que quero fazer, quando navego nos registro com os botões, quero que o registro fique posicionado na ListBox (caixa de listagem).

Alguém ja fez isso ou algo parecido?

Espero uma ajuda.

Obrigado

Private Sub Comando0_Click()

Me.Combinação.SetFocus
SendKeys "{F4}"

SendKeys "{UP}"

End Sub

Private Sub Comando1_Click()

Me.Combinação.SetFocus

SendKeys "{F4}"

SendKeys "{DOWN}"

End Sub