Makro läuft nicht mehr - HILFE

Public Sub lesen()
' liest alle Dateien in die Tabelle Anderung ein dateien liegen im Ordner RENAME
Sheets("Aenderung").Visible = True 'Blatt Aenderung wird eingeblendet
Sheets("Aenderung").Select 'Proramm springt auf das Blatt Aenderung
    Dim myFileSystemObject As FileSystemObject, myFile As File, lngRow As Long
    Dim objFilePropReader As DSOleFile.PropertyReader
    Dim objDocProp As DSOleFile.DocumentProperties
    Application.ScreenUpdating = False
    Set objFilePropReader = New DSOleFile.PropertyReader
    Set myFileSystemObject = New FileSystemObject
    lngRow = 2
With Worksheets("Aenderung")
        .Range(.Cells(2, 1), .Cells(Rows.Count, 256)).ClearContents
        'Pfad in nächster Zeile anpassen
        For Each myFile In myFileSystemObject.GetFolder("D:\ALWIN\RENAME\").Files
            If ThisWorkbook.FullName <> myFile.Path Then
                Set objDocProp = objFilePropReader.GetDocumentProperties(myFile.Path)
            On Error Goto Fehler
                .Cells(lngRow, 1) = myFile.Name
                .Cells(lngRow, 2) = myFile.Type
                .Cells(lngRow, 3) = myFile.DateLastModified
                .Cells(lngRow, 5) = myFile.DateCreated
                .Cells(lngRow, 7) = objDocProp.Comments
                'Paf in nächster Zeile anpassen
                .Hyperlinks.Add Anchor:=.Cells(lngRow, 8), Address:="D:\ALWIN\ARCHIV\" & myFile.Name, TextToDisplay:="Dokument"
                lngRow = lngRow + 1
            End If
        Next
Fehler:
        .Cells(lngRow + 2, 1) = "Historie:" 'Mit zwei Leerzeilen wird Historie: am Ende der Spalte A eingefügt
    End With
    Set objFilePropReader = Nothing
    Set objDocProp = Nothing
    Set myFileSystemObject = Nothing
    Application.ScreenUpdating = True
End Sub
Als Fehlermeldung erhalte ich "Fehler beim Kompilieren, Projekt oder Bibliothek nicht gefunden"
Habe mal gehört oder gelesen, das der Befehl FileSystemObject nicht mehr funzt und/oder vorhanden ist.
Wer kann mir helfen das das Makro wieder läuft.
Danke an alle
Gruß
Claudia