Формат даты в макросе Word 2007 #478207

Format(Date, "dd.MM.yyyy HH:mm") почему-то время вставляется нулевое, подскажите, пожалуйста? Весь код: Sub ВставкаНижнегоКолонтитула 'Вставка нижнего колонтитула во всех разделах документа    Dim str As String    Dim Sec As Section    str = Format(Date, "dd.MM.yyyy HH:mm") 'dd mmmm yyyy    ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False      For Each Sec In ActiveDocument.Sections        Sec.Footers(wdHeaderFooterPrimary).Range.Text = str    Next Sec End Sub

str = Format(Now, "dd.MM.yyyy H:mm")

большое-большое спасибо, получилось!!!!!!!!!!!!!!