When I changed the Do loop to the following it works.

Do Until CInt(dblAnswer) >= 1




I am not sure what this does for you, but it should take care of your problem