Option Explicit Sub Main Dim grfApp, doc, txt1 As Object Set grfApp = CreateObject("Grapher.Application") grfApp.Visible = True Set doc = grfApp.Documents.Add(grfPlotDoc) Set txt1 = doc.Shapes.AddText(3,4,"initial text") txt1.Font.size = 24 txt1.Font.color = grfColorBlue txt1.text = "new contents" End Sub