Visual Basic - pasar datos de listbox a textbox

Estoy buscando la forma de pasar los datos que tengo en un list box a un textbox saltan linias para poder posteriormente imprimirlo.

Gracias
Feliz año nuevo

Private Sub Command1_Click()
Dim DATO As String, I As Integer
DATO = List1.Text
I = List1.ListIndex
If List1.ListIndex >= 0 Then
Text1.Text = DATO
List1.RemoveItem I
End If
End Sub

No sé si el ListBox lo llenas por las mismas propiedades del Visual o por código, pero esto pasa lo de un ListBox a un TextBox

Feliz y Prospero Año Nuevo a ti también.