Option Explicit
 
Dim mp3ordner As String
Dim mp3name As String
Dim dateiname As String
 
Private Sub Form_Load()
    mp3ordner = "MeinMP3Ordner\"
    [color=green]'Textbox mit MultiLine
    Text1.Text = ""
    dateiname = Dir(mp3ordner & "*.mp3")
    add2text
    Do While dateiname <> ""
        dateiname = Dir
        add2text
    Loop
End Sub
 
Private Sub add2text()
    If dateiname <> "" Then
        mp3name = mp3title(mp3ordner & dateiname)
    Else
        Exit Sub
    End If
    If mp3name = "" Then
        mp3name = Left(dateiname, InStrRev(dateiname, ".") - 1)
    End If
    Text1.Text = Text1.Text & mp3name & vbCrLf
End Sub
 
Private Function mp3title(datei As String) As String
    Dim f As Integer
    Dim tag As String * 3
    Dim title As String * 30
    Dim artist As String * 30
 
    f = FreeFile
    Open datei For Binary As #f
    Seek #f, LOF(f) - 127
    Get #f, , tag
    If tag = "TAG" Then
        Get #f, , title
        If Trim(Replace(title, Chr(0), "")) <> "" Then
            Get #f, , artist
            If Trim(Replace(artist, Chr(0), "")) <> "" Then
                mp3title = Trim(Replace(artist, Chr(0), "")) & " - " & Trim( _
                  Replace(title, Chr(0), ""))
            Else
                mp3title = Trim(Replace(title, Chr(0), ""))
            End If
        End If
    End If
    Close
End Function

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...