Dim LC_file  As String
  LC_file = ""
  ppsim.CDialog1.Filename = ""
  ppsim.CDialog1.DialogTitle = "Browse Files "
  ppsim.CDialog1.Filter = "Executable Files(*.EXE)|*.EXE|(*.COM)|*.txt|BAT (" & _
    "*.BAT)|ALL (*.*)|*.*"
  ppsim.CDialog1.InitDir = App.Path
  ppsim.CDialog1.Flags = &H4 Or &H2 Or &H800
  ppsim.CDialog1.DefaultExt = "*.EXE"
  ppsim.CDialog1.CancelError = False
  ppsim.CDialog1.ShowOpen
  If ppsim.CDialog1.Filename > "" Then
    LC_file = ppsim.CDialog1.Filename
  End If
  If LC_file = "" Then Exit Sub
  'In LC_file steht nun entweder der gewählte Name oder nix, dann war Abbrechen 
  ' gewählt :D

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)