Can anybody translate this one-line Visual Basic into AppleScript?

Question

I have been pulling my hair out in trying to get InDesign CS4 to markup selected text with an XML tag. Supposedly this can be done using Visual Basic. Is there anybody out there that could possibly translate this seemingly simply code into AppleScript?
myText.AssociatedXMLElements.Item(1).XMLElements.Add("break", myText)
Here is another example:
With myTSRangeText.AssociatedXMLElements.Item(1).Parent.XMLElements.Add("znak")
  Call .Markup(myTSRangeText)
End With
I am still thinking that AS cannot do this… but it is worth a shot to ask.
Thanks in advance,
Jeff

Answer 1

If it makes any difference
This is what I have so far using AppleScript. It is very very close. But the result of running the script appends the tagged text to the end of the text in the frame. In other words, it looks like this: (assuming I had the characters "word" highlighted). This is because I can only seem to tell the story to markup using the tag. I cannot tell the selection to markup using the tag?
This word is the item I want to tag.[word]
I am wanting the result to tag the selected item. So it should look like this:
This [word] is the item I want to tag.
tell application "Adobe InDesign CS4"
    tell document 1
        set selText to object reference of (text from character 1 to character -1) of selection
        set selTextString to selText as string
        display dialog selText as string
        set parentStoryID to parent story of selection
        set myXMLTag to (get XML tag "theDate")
        set myXMLStoryTag to (get XML tag "Story")
        tell XML element 1
            set theStoryElement to make XML element with properties {markup tag:"Story"}
            tell theStoryElement
                set myXMLElement to make XML element with properties {markup tag:"theDate", contents:selTextString}
                tell parentStoryID to markup using theStoryElement
            end tell
        end tell
    end tell
end tell