Private Sub LL()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2, SwDraw As DrawingDoc

    Set SwApp = GetObject(, "SldWorks.Application")

    Set SwModel = SwApp.ActiveDoc

    Set SwDraw = SwModel

  Dim SwSelMgr As SelectionMgr, SwNote As Note

    Set SwSelMgr = SwModel.SelectionManager

    Set SwNote = SwSelMgr.GetSelectedObject2(1)

    Debug.Print SwNote.GetText

End Sub