Хорошее решение - минуты не всегда идут в двузначные числа - вам нужно их дополнить, если минуты состоят из одной цифры (я думаю, что CDate удаляет этот ноль)
например.
dim theminutes
...
tempDate = cdate(tempDate)
if Len(Minute(toReturn))=1 then
theminutes = "0" & Minute(toReturn)
else
theminutes = Minute(toReturn)
end if
RFC822_to_date = day(tempDate )&"-"&month(tempDate )&"-"&year(tempDate )&" "&hour(tempDate )&":"&theminutes&":00"