O Treze esta ficando preguiçoso
Faça assim....
'insira um timer e configure enabled=true e interval = 800
Private Sub Timer1_Timer()
DoEvents
Label1.Caption = " " & Format$(Now, "hh:mm:ss") & Space(2) & " " & Format$(Date, "Long Date")
End Sub
Fuiiiiiiiiiiiiii