In drawing, manual Add note (Text), can't get note name

With MACRO, may get Note name.

Sub ffffff()

  Set swApp = CreateObject("SldWorks.Application")

  ' Get open drawing document

  Set drawing = swApp.ActiveDoc

  Set note = drawing.CreateCompoundNote(0.00635, 0.05, 0.2, 0#)

  ' Add text to note

  note.AddText "zero pt", 0, 0, 0

  Debug.Print note.GetName

End Sub