macro recorded code follow bottom.

Sub main()

  Set swApp = Application.SldWorks
  Set Part = swApp.ActiveDoc
  Set SelMgr = Part.SelectionManager
  boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
  Part.EditSketch
  boolstatus = Part.Extension.SelectByID2("SketchText1", "SKETCHTEXT", 0.09499532772996, 0.01014076720589, 0, False, 0, Nothing, 0)
End Sub

Aim: Hope change note in SkethcText1.

Thanks.