'...
ObjMT.ExplodeFragments(New CAD_DBS.MTextFragmentCallback(AddressOf acadnet_primitive_GetMtextLines))
'...
Private Function acadnet_primitive_GetMtextLines(ByVal Param As CAD_DBS.MTextFragment, _
ByVal myData As Object) As CAD_DBS.MTextFragmentCallbackStatus
Dim str As String = Param.Text
GetMLinesNorm.Add(str)
Return CAD_DBS.MTextFragmentCallbackStatus.Continue
End Function