Ordner auslesen aus selbst erstellten Or

Private Sub CommandButton1_Click()
 Unload Me
End Sub
'XXXXXXXXXXXX
Private Sub UserForm_Initialize()
    Daten.TextBox1 = Kundenstamm.TextBox1
    Dim fs As Object
    Dim Ordner As Object
    Dim Datei As Object, Item
    If TextBox1 > 0 Then
    Me.ListBox1.Clear
    Set fs = CreateObject("Scripting.filesystemobject")
    Set Ordner = fs.GetFolder("C:\Geschäft\Kunden\" & TextBox1.Value)
    Set Datei = Ordner.Files
    For Each Item In Datei
    Me.ListBox1.AddItem Item.Name
    Next
    End If
End Sub
'XXXXXXXXXXXX
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strPath As String, strFile As String
strPath = "C:\Geschäft\Kunden\ & TextBox1.Text\"
strFile = ListBox1.Text
If Dir(strPath & strFile) > "" Then
Open_File strPath & strFile, 1
End If
End Sub