Dateien im Verzeichnis sortiert in Combobox

ich habe folgenden Code auf meine Bedürfnisse zurecht geschnitten aber es gibt noch ein Problem, es kommt beim ausführen immer in der Zeile .ComboBox1.AddItem = Verzeichnis(I)der Fehler
Objekt erforderlich und ich habe keine Ahnung was ich tun soll.

Hier mal der Code ohne die Sortierung:

Private Sub UserForm_Initialize()
Dim Verzeichnis() As String
Dim pPfad As String
Dim Dateiname As String
Dim I As Integer
Dim Anzahl As Integer
Dim StrTyp As String
Dim strDatei As String
With Abfragefenster
pMonat = ThisWorkbook.Worksheets("Startseite").Range("C9")
pPfad = ThisWorkbook.Path & "\" & pMonat & "\"
    Anzahl = 0
'    Liste erstellen
StrTyp = "*.xls"
Dateiname = Dir(pPfad & StrTyp)
    I = 3
Do While Dateiname <> ""
Anzahl = Anzahl + 1
ReDim Preserve Verzeichnis(1 To Anzahl)
Verzeichnis(Anzahl) = Dateiname
Dateiname = Dir
Loop
Sort Verzeichnis, LBound(Verzeichnis), UBound(Verzeichnis)
For I = Anzahl To 1 Step -1
        .ComboBox1.AddItem = Verzeichnis(I)
Next I
.ComboBox1.ListIndex = 0
.ComboBox1.SetFocus
.ComboBox1.Style = fmStyleDropDownList
End With
End Sub

Bitte kann mir da einer helfen ?

Danke Petra !