Private Sub btnSuchen_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnSuchen.Click
      If FolderBrowserDialog1.ShowDialog() = _
      System.Windows.Forms.DialogResult.OK Then
         Dim strMask As String = txtSuchen.Text
         If Not strMask.EndsWith("*") Then strMask &= "*"
 
         lstSuchen.Items.Clear()
         searchFiles(FolderBrowserDialog1.SelectedPath, strMask)
         MessageBox.Show("Fertig!")
      End If
   End Sub