Dim sFile As String
            Dim sPath As String
 
            ' Pfad festlegen
            sPath = My.Settings.Programmpfad & "\mitglieder\*.ddm*"
 
            ' alle Dateien ermitteln
            sFile = Dir$(sPath & "*.*")
            Do Until sFile = ""
                If sFile <> "." And sFile <> ".." Then
                    TextBox1.Items.Add(sFile)
                End If
                sFile = Dir$()
            Loop