' ===== the next line depends on the local language settings,
' ===== so there might be some work to be done

DateIn = Replace(DateIn, "mmmm", "January")

See if using this line instead makes it work more universally....

DateIn = Replace(DateIn, "mmmm", MonthName(1))

And in the next ElseIf block, replace this...

DateIn = Replace(DateIn, "mmm", "Jan")

with this...

DateIn = Replace(DateIn, "mmm", MonthName(1, True))

Rick