unselect a textbox

I have the cursor in a textbox shape or on the edge of a textbox shape
Then I want to unselect the textbox shape in both cases, so want to just put the cursor in the word document somewhere or at begin or end of document. This in VB of VBA.

i thought using collapse but this only unselects a range in the textbox
Appword.Selection.Shaperange(1).Collapse 'only unselects the range

I think i got it.

Appword.Activedocument.Characters(1).Select 'selects first char in document
AppWord.Selection.Collapse 'unselect the character

So the cursor is now moved to de begin of document and textbox is unselected. Maybe ther is a better way, this works for now.