hola, te dejo un ejemplo de como yo paso valores de un listbox a una caja de texto
Código:
dim i as integer
'obtengo el index que esta seleccionado
i = ltsbxActividad.SelectedIndex
'le paso el valor de item.........
txtActividadLst.Text = ltsbxActividad.Items(i).Text
espero ayude.