Replace the last two lines shown above with the following:
MyDate = DateSerial(2014, 3, 6) - 1
It will then return the date of the previous day. If you need to keep the entered date and calculation separate, then you can use the two line approach as you have done, but replace the string with the DateSerial function.