Separar datos con salto de línea

H o l a:

Para que en un textbox puedas visualizar varias líneas, se tiene que cambiar la propiedad del textbox a Multiline = True; pero eso no significa que tienes varias líneas dentro del textbox, lo que tendrás es una sola cadena pero que podrás visualizar con varios cortes.

Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
    'On Error Resume Next
    TextBox2 = ""
    TextBox2.MultiLine = True
    '
    For x = 0 To ListBox1.ListCount - 1
       ListBox1.Selected(x) = Not ListBox1.Selected(x)
    Next
    n = 0
    For x = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(x) = True Then
            n = n + 1
            If n = 7 Then
                lista = lista & ";" & ListBox1.List(x, 1) & ";" & Chr(10)
                n = 0
                sep = ""
            Else
                lista = lista & sep & ListBox1.List(x, 1)
                sep = ";"
            End If
        End If
    Next
    If lista <> "" Then
        If Mid(lista, Len(lista) - 1, 1) = ";" Then
            lista = Left(lista, Len(lista) - 2)
        End If
    End If
    'lista = Mid(lista, 2, Len(lista) - 1)
    TextBox2.Value = lista
End Sub

Por ejemplo, en la siguiente imagen, en el texbox se pueden apreciar 3 líneas, pero realmente el textbox contiene una sola cadena de texto separada en 3 fragmentos.

':)
':)