Option Explicit
 
Private Sub Form_Load()
  Dim I As Integer
 
  geaend = 0
  For I = 0 To File1.ListCount
    ' Anzahl der Backup-Tabelle mitteilen
    ReDim Preserve sSave(I)
    List1.AddItem File1.List(I), I
    sSave(I).AlterName = File1.List(I)
  Next I
End Sub
 
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 90 Then
    ' statt der MsgBox solltest du nur die Aktion ausführen (also folgende 
    ' Zeile komplett löschen)
    If Shift = 2 Then MsgBox "Strg + Z gedrückt"
    ' If Shift = 2 Then sBackup
  End If
End Sub
 
Private Sub Command1_Click()
  Dim I As Integer
  Dim Laenge As Integer
 
   ' Das hier ist nur zum Test, ein Umbenennen von Dateien mit Endung "frm"
  For I = 0 To List1.ListCount
    If Right$(List1.List(I), 3) = "frm" Then
      sSave(geaend).AlterName = List1.List(I)
      Laenge = Len(List1.List(I))
      sSave(geaend).NeuerName = Left$(List1.List(I), Laenge - 3) & "form"
      geaend = geaend + 1
    End If
  Next I
End Sub
 
Public Sub sBackup()
  Dim I As Integer
  Dim K As Integer
 
  For I = 0 To List1.ListCount
    For K = 0 To geaend
      ' Hier muß vorher schon NeuerName in der ListBox eingetragen worden sein, 
      ' sonst klappt es nicht
      If List1.List(I) = sSave(K).NeuerName Then
        List1.List(I) = sSave(K).AlterName
      End If
    Next K
  Next I
End Sub

Option Explicit
 
Global geaend As Long
 
Type tBackup
  AlterName As String
  NeuerName As String
End Type
 
Public sSave() As tBackup