Secondary Development of SolidWorks-12-note of engineering drawing

The following program reads every note of the current drawing and prints the result in debug.

Option explicit
Dim swname as string
Dim swtext as string
Sub main ()

Dim swapp as sldworks. sldworks
Dim swmodel as sldworks. modeldoc2
Dim swdraw as sldworks. drawingdoc
Dim swview as sldworks. View
Dim swnote as sldworks. Note
Dim Swann as sldworks. Annotation
Dim Bret as Boolean
Debug. Print "begin:" & CHR (10)
Set swapp = Createobject ("sldworks. application ")
Set swmodel = swapp. activedoc
Set swdraw = swmodel
Set swview = swdraw. getfirstview 'This is the drawing template. I don't need to care about it
Set swnote = swview. getfirstnote
Swmodel. clearselection2 (true)
Debug. Print "file =" & swmodel. getpathname

Do while not swnote is nothing
Set Swann = swnote. getannotation
Bret = Swann. select2 (true, 0)
Debug. Assert Bret
Swname = swnote. getname
Swtext = swnote. gettext

Debug. Print "name:" & swnote. getname; "*** text:" & swnote. gettext

Set swnote = swnote. getnext
Loop

End sub