Thank you for your help I will have to go in this morning and make sure there is consistancy is the data coming in so that it would not confuse the DateSerial.
Just one other question when I try and input this:
DateSerial(Right([Demand Date],4),Left([Demand Date],2) Mid([Demand Date],3,2))...