[SendMessage]

OSArev, совсем ни к чему было переделывать с использованием DatePart и два нуля здесь тоже не нужны - одного достаточно.

Код:

DT = Now
DateVal = Right("0" & Day(DT), 2) & "." & _
          Right("0" & Month(DT), 2) & "." & _
          Year(DT) & "_" & _         
          Right("0" & Hour(DT), 2) & "." & _
          Right("0" & Minute(DT), 2) & "." & _
          Right("0" & Second(DT), 2