Dim I As Long
  Dim lPos As Long
  Dim sLines() As String
 
  <font color=green>' Textbox in einzelne Zeilen spliten</font>
  sLines = Split(Text1.Text, vbCrLf)
 
  <font color=green>' Alle Zeilen durchlaufen und nach Semikolon suchen
  ' (Text nach Semikolon in ListBox eintragen)</font>
  For I = 0 To UBound(sLines)
    lPos = InStrRev(sLines(I), ";")
    If lPos > 0 Then
      List1.AddItem Trim(Mid(sLines(I), lPos + 1))
    End If
  Next I