Her en lille funktion der konvertere et tal til bytes, f.eks. bliver 12.500 til 12,2 Kbytes

Function getSize( size As Double ) As String
           Dim s As Double
           s = size
           Dim units As Variant
           units = Split( "bytes,Kb,Mb,Gb,Tb,Pb", "," )
           Dim i As Integer

           While s > 1024
                      s = s / 1024
                      i = i+1
           Wend

           getSize = Round( s, 1 ) & " " & units( i )
End Function