Erreur de compilation VBA

Bonjour,

Une macro qui fonctionnait trés bien s'est mise à ne plus vouloir fonctionner. La page de menu ne s'affiche plus et la boite de dialogue "erreur de compilation" apparait.
Lorsque je vais dans le code la commande de déboggage m'arrete sur la formule suivante:
menu.LblDateHeure.Caption = Format(Date, "Long Date") (sur le mot date).
Comment puis-je débogger cette macro?

Je vous la met en entier ci dessous.

Cordialement.



Private Sub UserForm_Initialize()

Dim hWnd As Long, exLong As Long, zFactor As Integer, Style As Long

hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd

On Error Resume Next


'Affichage sur le UserForm
menu.LblDateHeure.Caption = Format(Date, "Long Date")