Error 76 en tiempo ejecución

[jcorralc]

Buenas, a ver si me podéis echar una mano. Tengo que ir a una carpeta en concreto y recorrer todas las subcarpetas y decir qué tamaño tiene cada una. Creo que el código es correcto ya que algunas carpetas me lo muestra correctamente y en otras me da un error 76 en tiempo de ejecución. La ruta si que existe pero tengo la sospecha que si la carpeta es muy grande en tamaño, casca y da este error. ¿Hay alguna forma de evitar este error?
Os dejo el código.
Private Sub Comando1_Click()

Dim Fso As New FileSystemObject
Dim Carpeta As Folder
Dim Carpeta1 As Folders
Dim Subcarpeta As Folder
Dim fecha As Date
Dim departamento As String
Dim tamaño As Double


fecha = Date

Set Carpeta = Fso.GetFolder("C:\")
Set Carpeta1 = Carpeta.SubFolders

For Each Subcarpeta In Carpeta1

departamento = Mid(Subcarpeta.Name, 2, 2)
tamaño = Subcarpeta.Size / 1000000
Msgbox tamaño

Next Subcarpeta

End Sub