Code:

 .Text = InputBox("Type City and press Enter.")

Comments:
declare your variables!
if the Selection point is ahead of the text you enter, it will NOT find it. If you want to go through the entire document use the document range, rather than Selection.

Do you actually want to create a new document for every found instance of your text string?