Drop ComplexStringElement

Dear friends,

Good morning! I would like to drop a complexStringElement. This is my code.

 

Sub element()

Dim oEnumeration As ElementEnumerator
Dim scanCriteria As New ElementScanCriteria
Dim counter As Integer
Dim element As element

scanCriteria.ExcludeAllTypes
'scanCriteria.IncludeType msdElementTypeLine
scanCriteria.IncludeType msdElementTypeBsplineCurve
scanCriteria.IncludeType msdElementTypeComplexString

Set oEnumeration = ActiveModelReference.Scan(scanCriteria)

Do While oEnumeration.MoveNext
    If oEnumeration.Current.IsComplexStringElement Then
    counter = counter + 1
    oEnumeration.Current.IsHighlighted = True
    oEnumeration.Current.AsComplexStringElement.Drop
    Else
    oEnumeration.Current.IsHighlighted = False
    End If
Loop
MsgBox "ELEMENT: " & counter

End Sub

 

what can I do?

 

Thanks!