Option Explicit

Private dicMRU As Scripting.Dictionary

Private Sub Form_Load()
  Set dicMRU = New Scripting.Dictionary
End Sub

Private Sub mnuÖffnen_Click()
  Dim sDateiPfad As String
  Static iMRU As Integer

  With CdlDatei
    .InitDir = App.Path
    .DialogTitle = "Wählen Sie eine Datei, bitte"
    .Filter = "Visual Basic-Module (*.vbp)|*.vbp|Alle Dateien|*.*"
    .ShowOpen
    If .FileName <> "" Then
      sDateiPfad = .FileName
    End If
  End With

  If dicMRU.Count <= 3 Then
    dicMRU.Add Item:=sDateiPfad, Key:=CStr(dicMRU.Count + 1)
  Else
    iMRU = iMRU Mod 4 + 1
    dicMRU.Item(CStr(iMRU)) = sDateiPfad
  End If
  MRUAufliste
End Sub

Sub MRUAufliste()
  Dim i As Integer

  For i = 1 To dicMRU.Count
    If i = mnuMRU.Count Then Load mnuMRU(i)
    mnuMRU(i).Caption = dicMRU.Item(CStr(i))
    mnuMRU(i).Visible = True
  Next
End Sub

Private Sub mnuMRU_Click(Index As Integer)
  MsgBox dicMRU.Item(CStr(Index))
End Sub