Dim Datei As String, RenDatei As String
  Dim Pfad As String, Vorgabe As String
  Dim NeuDatei As String
 
  'Dateiname aus Verzeichnis und Dateianwahl ermitteln
  Pfad = Verzeichnis1.Path
  RenDatei = CheckPath(Pfad) & Datei
  'neuen Namen abfragen
   Titel = "Neuer Dateiname"
   Vorgabe = "Bitte geben Sie den neuen Dateinamen "
   Vorgabe = Vorgabe & "für die Datei " & "'" & Datei & "'" & " ein!"
   NeuDatei = InputBox$(Vorgabe, Titel)
   If NeuDatei = "" Then Exit Sub
   Name RenDatei As CheckPath(Pfad) & NeuDatei