Place cursor in comment

[Charlie Mac]

I have a button on my toolbar that will add a blank comment for
selected text. How do I place the cursor in the comment without
opening the review pane. This is the code I am using and it leaves
the cursor in the selected text.

Dim MyTag As Integer
' load array here
MyTag = CommandBars.ActionControl.Tag
Selection.Comments.Add Range:=Selection.Range,
Text:=Aray(MyTag, 2)

Thank you for your thoughts.

Charlie from Texas