1. Believe it or not, it doesn't return any format!

It returns a Date value, which is actually stored as a number. It is only formatted when you convert it to a string (eg: by putting it into a textbox), and then it is formatted using Short Date as you have found.


2. The only thing which looks (very) dubious is Fix - but you dont need that line anyway, you can simply change the next line to this:
VB Code:
  1. sEnd = DateAdd("d", 2, Date)