Private Sub Command1_Click()
  Dim sString As String
  Dim myArray() As String
  Dim i As Integer
 
  sString = "250797;Produktname;249;Artikelnummer;Produkt;Preis"
 
  myArray = Split(sString, ";")
 
  For i = LBound(myArray) To UBound(myArray)
    List1.AddItem myArray(i)
  Next i
End Sub