Dim LC_file As String
  LC_file = ""
  Dialog1.Filename = ""
  CDialog1.DialogTitle = "Lade was "
  CDialog1.Filter = "TEXT (*.Txt)|*.Txt"
  CDialog1.InitDir = App.path
  CDialog1.Flags = &H4 Or &H2 Or &H800
  CDialog1.DefaultExt = "*.Txt"
  CDialog1.CancelError = False
  CDialog1.ShowOpen
  If CDialog1.Filename > "" Then
    LC_file = CDialog1.Filename
  End If
  If LC_file = "" Then Exit Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)