Getting the Name of a BreakLine

I'm trying to write a macro that identifies the internal namefor drawing objects (currently BreakLines) I can't seem to get ahandle on anything that will tell me what the selected breakline'sname is. Here is the current code (originally recorded as a macroand you can clearly see that SWX knows what it's name is when itrecorded the macro in sub main) I'm running the Identify subroutinewith a breakline selected.

I've tried casting it as a feature and an annotation but that givesme a type mismatch. Any ideas?

Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim SelMgr As SelectionMgr
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Feature
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("Break Line17","BREAKLINE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Break Line8", "BREAKLINE",0, 0, 0, True, 0, Nothing, 0)
Part.EditDelete
End Sub

Sub Identify()
Dim swBreak As BreakLine
Dim annotation As annotation
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set swBreak= SelMgr.GetSelectedObject6(1, 0)
Set annotation = oFeature
Debug.Print swBreak.Name
End SubSolidworksApi macros