Set fd = DotNetFactory.CreateInstance(System.Windows.Forms.OpenFileDialog, System.Windows.
Forms)
fd.InitialDirectory=c:\\
fd.Filter=txt files (*.txt)|*.txt |All files (*.*) |*.*
fd.RestoreDirectory=true
fd.FilterIndex=2
fd.ShowDialog()
msgbox fd.FileName
Set objDialog=CreateObject("SAFRCFileDlg.FileOpen")
ObjDialog.OpenFileOpenDlg
OpenFile=objDialog.FileName