Pasar elemento de listBox a textBox

[emilio_alac05]

Hola amigos disculpen la molestia pero tengo este problema al pasar el valor del list a un capo texto no me toma el valor del list como se hace este es el codigo que utilizo

Código:

Dim Lineas() As String
Dim i As Integer

Lineas = Split(rx, vbNewLine)
    
    For i = LBound(Lineas) To UBound(Lineas)
        List1.AddItem Lineas(i)
                 
         Text4.Text = List1.Text
        
    Next

saludos, muchas gracias