Public Function FolderSize(ByVal strFolder As String) _
  As Double
 
  Dim FSO As New Scripting.FileSystemObject
  Dim Folder As Scripting.Folder
 
  ' Ggf. abschliessenden Backslash anfügen
  If Right$(strFolder, 1) <> "\" Then _
    strFolder = strFolder & "\"
 
  Set Folder = FSO.GetFolder(strFolder)
 
  FolderSize = Folder.Size
End Function

Public Function BytesToMegabytes(Bytes As Double) As Double
Dim dblAns As Double
dblAns = (Bytes / 1024) / 1024
BytesToMegabytes = Format(dblAns, "###,###,##0.00")
End Function