Dim dir As New IO.DirectoryInfo( _
          "C:\einsatzsoftware\wachplan\mitglieder")
        If Not dir.Exists Then
            Debug.WriteLine(dir.FullName & " existiert nicht.")
        Else
            Dim files() As IO.FileInfo = dir.GetFiles("*.ddm", _
              IO.SearchOption.TopDirectoryOnly)
            If files.Length = 0 Then
                Debug.WriteLine("Keine .ddm-Dateien vorhanden.")
            Else
                Debug.WriteLine(files.Length & " Dateien gefunden.")
                'TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
                'TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
 
                For Each file As IO.FileInfo In files
                    'TextBox1.AutoCompleteCustomSource.Add( 
                    ' IO.Path.GetFileNameWithoutExtension(file.Name))
                Next
            End If
        End If