Private Sub cmdOpen_Click()
 
  ' Dateiauswahl
  On Local Error Resume Next
  With CommonDialog1
  .CancelError = False
  .Filter = "Textdatei (*.txt)|*.txt|" & _
  "alle Dateien (*.*)|*.*"
    .ShowOpen
 
End With
End Sub