Application VisualBasic Script

Sub show()
  Result = Application.Dialogs(xlDialogFormulaGoto).show
End Sub