Application VisualBasic Script

Sub dlg()
    If Dialogs(wdDialogFileOpen).show = 0 Then End
End Sub