Because you declare ans as a string, and compare it to vbYes, a Long.

Declare ans as a Long.