Nedtælling m. timer

Den her er nem - men kan vist ikke se skoven for abre træer

Jeg vil have en label, der tæller ned til fx. kl. 15:00 i dag

Jeg har forsøgt med følgende, men får naturligvis en type mismacth i linien, hvor jeg trækker tiderne fra hinanden.

Hvoddn klarer jeg lige den?
Dim Hurra

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
  Hurra = "31-01-2003 15:00:00"
End Sub

Private Sub Timer1_Timer()
  Label2.Caption = "Klokken er: " & Format(Now, "h:mm:ss")
  Label6.Caption = "Nedtælling: " & Format(Hurra - Now, "h:mm:ss")
End Sub