Sub Main

'Initialize Grapher
  Dim Grapher As Object
  Set Grapher = CreateObject("Grapher.Application")
  Grapher.Visible = True

'============================
'User-defined variables
'============================
filepath$ = "C:\temp\"
filename$ = "Plot1.grf"
datafile$ = "newdata.xlsx"
'============================

'Open an existing document
  Set PlotDoc = Grapher.Documents.Open(filepath$+filename$,filepath$+datafile$)

End Sub