Umbennen von Dateien mit Makro

Hallo,
ich habe mir ein Makro gebastelt, das alle Dateien eines Ordners umbenennt.
-----
'Beginn von (Deklarationen)
' Aktives Ordnerfenster
Set FolderWindow = Workspace.ActiveWindow.FolderWindows.Active

' Aktuelle Auswahl entfernen
FolderWindow.Selection.UnselectAll

' Gewünschte Dateien auswählen
FolderWindow.Selection.Select("*")


' Gewählte Dateien hinzufügen
MultiRename.RemoveAll
MultiRename.Add(FolderWindow.SelectedItems)

' Token für Dateiname und Erweiterung...

Umbennen von Dateien mit Makro