I'll assume the textframe in question is the one you already have selected.
Code:
Sub Demo()
Dim aRng As Object
Selection.ShapeRange(1).TextFrame.TextRange.Select
Set aRng = Selection.Range
aRng.MoveStart Unit:=wdCharacter, Count:=1
aRng.Select
End Sub