Ich verwende nämlich folgenden Code um die Einträge einer Winamp Playliste in eine Liste einzutragen um diese Später als Textdatei zu speichern:

Dim I, Zeile, Überprüfen, J, Komma
Dim Zähler As Integer

If List1.ListCount = 0 Then MsgBox "Keine Playliste geladen", vbInformation, "*.m3u -> *.txt", "", 0


Zähler = 0
For I = 1 To List1.ListCount - 1
Zeile = List1.List(I)
Überprüfen = Left(Zeile, 7)
If Überprüfen = "#EXTINF" Then


For J = 7 To 13
Komma = Mid(List1.List(I), J, 1)

If Komma = "," Then
Zähler = Zähler + 1
List2.AddItem Zähler & ". " & Mid(List1.List(I), J + 1)
End If

Next J

End If


Next I
List2.Visible = True

Ich weiß, der Code ist nicht gerade der beste aber ich hatte nicht viel Zeit .
Jetzt wollte ich eigentlich nur Fragen ob man diesen Code vielleicht noch vereinfachen könnte oder ob es auf eine ganz andere Weise noch einfacher geht.

Danke schon mal im voraus.

Ich denke mal, der Code ist in Ordnung, einfacher kann man ihn nicht machen. Allerdings gibt es durchaus einiges daran auszusetzen, beispielsweise deklarierst du einige Variablen als Variant und du benutzt Umlaute (Ä, Ü) in den Variablennamen. Es funktioniert zwar so, aber der Programmierstil ist nicht besonders toll.