The recommended way to create object it from a text being edited is to use the GetTextStatus, GetParaTextStatus and GetDefaultTextStatus functions, e.g:

Dim objTS = Text.GetTextStatus