You need to use the 'Visual' bit of VBA and design yourself a user form which collects all of the information you need.

There are lots of tutorials on the web so I'm not going to redo that here.

Yours won;t be complicated as it looks like you only need two text fields to collect the information you need.

A couple of comments on your code.

1. The select case for Ans does nothing because you have no code following the case statements.

2. Consider switching from a document variable to a custom document property. The advantage of a custom document property is you can edit the value from the properties dialog box which is accessed via the Backstage page.