Dim sLine() As String
Dim i As Integer
 
sLine = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = 0 To UBound(sLine)
  sLine(i) = LTrim$(sLine(i))
  If sLine(i) <> "" Then
    List1.AddItem sLine(i)
    Text1.Text = Text1.Text & sLine(i)
  End If
Next i