Datei umbenennen

Hi ich möchte verschiedene Dateien umbenennen.
So zB.: alter_Name.dat.bak
in: neuer_Name.dat
Ein einfache Macro mit Inputbox, wäre mir am liebsten.
Leider habe ich keinen Plan wie!

Grüße