Sub Main

Dim GrapherApp As Object
Dim Plot As Object
Set GrapherApp = CreateObject("Grapher.Application")

GrapherApp.Visible = False
Dim Docs As Object
Set Docs = GrapherApp.Documents

Path="C:\temp\"

  Set Plot = GrapherApp.Documents.Open(Path+"Test.grf")
  Plot.SaveAs(Path+"Test.gpj")
  Docs.Close

  Set Plot = GrapherApp.Documents.Open(Path+"Plot1.grf")
  Plot.SaveAs(Path+"Plot1.gpj")
  Docs.Close

GrapherApp.Quit

End Sub