Dateien in Listenfeld auslesen

Mit diesem Code lasse ich die Dateien aus einem bestimmten Verzeichnis in eine Listbox kopieren. Die geöffnete Datei soll aber nicht mit in die Listbox übernommen werden, obwohl sie sich auch in dem angegebenen Verzeichnis befindet.Könnt ihr mir weiterhelfen?
Danke

Private Sub UserForm_Initialize()
Dim datei1 As String
datei1 = Dir("N:\TD_ESN_ALLGEMEIN\Anwender\Brzoska\Stücklisten\*.xls")
ListBox1.AddItem datei1
Do Until datei1 = ""
datei1 = Dir
With ListBox1
.AddItem datei1
End With
Loop
End Sub