Option Explicit
 
Private Sub Command1_Click()
    Dim vDatos() As String
    Dim Item As ListItem
    Dim i As Long
 
    vDatos = Split(Text1.Text, vbNewLine)
 
    For i = LBound(vDatos) To UBound(vDatos)
        Set Item = ListView1.ListItems.Add(, , vDatos(i))
    Next
End Sub
 
Private Sub Form_Load()
    Text1.Text = "Item1" & vbNewLine & "Item 2" & vbNewLine & "Item 3"
    With ListView1
         .ColumnHeaders.Add , , "Datos Del TextBox"
        .View = lvwReport
    End With
End Sub