Existem muitas maneiras uma delas é a seguinte:
digamos que vc tenha um " list1" com os itens já inseridos e seu "text1" para onde quer mandar o item escolhido no lilst.
Vc pode por na janela de código da caixa "list1" no evento lostFocus o seguinte comando:
Private Sub List1_LostFocus()
Text1.Text = List1.Text
End Sub
assim o ítem que estiver escolhido no list irá para o textbox.
espero ter ajudado.