Dim dToday As Date
dToday = #10/28/2004# 
MsgBox format(dToday,"mmm")