Function GET_FileName() As String
  Dim LC_file  As String
  'LC_file = ""
  CommonDialog1.CancelError = False
  CommonDialog1.FileName = ""
  CommonDialog1.DialogTitle = "Browse Files "
  CommonDialog1.Filter = "Executable Files(*.EXE)|*.EXE|(*.COM)|*.txt|BAT (" & _
    "*.BAT)|ALL (*.*)|*.*"
  CommonDialog1.InitDir = App.Path
  CommonDialog1.Flags = &H4 Or &H2 Or &H800
  CommonDialog1.DefaultExt = "*.EXE"
  CommonDialog1.CancelError = False
  CommonDialog1.ShowOpen
  If CommonDialog1.FileName > "" Then
    LC_file = CommonDialog1.FileName
  End If
  If LC_file = "" Then
    GET_FileName = ""
    MsgBox LC_file
    Exit Function
  Else
    GET_FileName = LC_file
    MsgBox LC_file
  End If
End Function

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)