Dim swApp As SldWorks.SldWorks
Dim swname As String
Dim a As Long
'Dim swAnnName As String
Dim swtext As String
Dim swView As Object
Dim swNote As Object
Dim swAnn As Object
swView = swpart.GetFirstView
swNote = swView.GetFirstNote
Do While Not swNote Is Nothing
a = swNote.GetTextCount()
swAnn = swNote.GetAnnotation
swname = swNote.GetName
swtext = swNote.GetText
InfoFile.WriteLine(swname)
InfoFile.WriteLine(swtext)
swNote = swNote.GetNext
Loop