TextRange.End

Property End As Long

The End property returns the position of the ending character of the range in the text stream.

The following code example displays the ending position of the first word in the paragraph:

Sub Test() 
 Dim s As Shape 
 Dim d As Document 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an 
example.") 
 Set t = s.Text 
 MsgBox "The end position of the first word is " & 
t.Story.Words.First.End 
End Sub