Dateinamen ?ndern

Public Sub Zeit_aendern()
    Dim myFSO As Object, MyFile As Object, strTime As String, datTime As Date
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
        strTime = Mid$(MyFile.Name, 8, 6)
        datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2)) - TimeSerial(1, 22, 0)
        MyFile.Name = Left$(MyFile.Name, 7) & Format(datTime, "hhmmss") & Right$(MyFile.Name, 13)
    Next
    Set myFSO = Nothing
End Sub