Ergebnis = 0
If fso.FolderExists("C:\ab") Then 
Ergebnis = fso.GetFolder("ab").Size
end if
If fso.FolderExists("C:\cd") Then 
Ergebnis = fso.GetFolder( _
  "C:\cd").Size
end if
If fso.FolderExists("C:\ef") Then 
Ergebnis = fso.GetFolder( _
"C:\ef").Size
end if
If fso.FolderExists("C:\gh") Then 
Ergebnis = fso.GetFolder( _
"C:\gh").Size
end if
Text3.text = FormatBytes(Ergebnis)