Dim Size As Long
    Dim GesamtFileSize As Long
    i = 0
    GesamtFileSize = 0
    Do
        i = i + 1
        Size = FileLen("C:\WINDOWS\Desktop\MP3\*.mp3")   
        GesamtFileSize = GesamtFileSize + Size
    Loop Until i >= 326    'insgesamt sind 326 Dateien im Ordner
    Text1.Text = GesamtFileSize / 326    ' ermittle Durchschnittsgröße

        Size = FileLen("C:\WINDOWS\Desktop\MP3\*.mp3")