This script places the insertion point after all paragraph tags.

Ted.CursorStartPara

dim objCur = Text.GetCursor(modeSrcOn,cposCursor,False)

Do

  dim objDesc = objCur.Desc

  If objDesc.GetType = tptText Then

    Ted.CursorTo objcur

    Exit Do

  End If

  If objCur.Move(1) > 0 Then Exit do

Loop