Move cursor out of text box

[quartz]

I am using Office 2003 on Windows XP.

I wrote some code that adds a text box to a page and formats it. This code
works fine, but when it's done, the cursor is left inside the text box. I
would like the cursor to finish at the beginning of the document. I tried to
record a macro, but the recorder doesn't pick up the mouse clicks. I also
tried the following without success:

ActiveDocument.HomeKey Unit:=wdStory

Can someone please post example code that will move the cursor out of a text
box and place it at the beginning of the current document? Thanks much in
advance.

 

[quartz]

Please note: I was able to use the following successfully:

ActiveDocument.Range(Start:=0, End:=0).Select