VBA 6.5 Countdown

Problem beim Einrichten eines Countdowns mit Visual Basic 6.5

Hallo zusammen

Ich bin wahrscheinlich zu dumm, um Visual Basic 6.5 zu prgrammieren.

Ich wollte eigentlich ganz einfach einen Countdown mit einer vorgegebenen Zeit definieren und dass dieser beginnt herunter zu zählen und die verfügbare Restzeit in einem Label ausgibt. Leider hat sich hier die Logik mit VBA 6.5 geändert. Habe schon rauf und runter gegoogelt, leider ohne Erfolgt. Hier nochmals das genaue Ziel:

Countdown mit fix definierter Zeit soll beim Aktivieren eines CommandButtons beginnen und die restliche Zeit in einem Label ausgeben. Schön wäre noch, wenn es möglich wäre bei der Ausgabe Stunden, Minuten und Sekunden anzuzeigen.

Gruss
Caedus

Zeit = TimeSerial(3, 20, 0) '200 Minuten  
Ende = Now + Zeit
Pause = 1 / 87000 'etwas weniger als eine Sekunde  
Do
    Label1.Caption = FormatDateTime(Ende - Now, vbLongTime)
    Application.Wait Now + Pause
Loop Until Now >= Ende

Private Sub CommandButton1_Click()
    Zeit = Now + TimeSerial(0, 1, 0) 'Std, Min, Sek  
    Call CountdownRefresh
End Sub

Public Zeit As Date

Sub ShowUserForm()
    UserForm1.Show
End Sub

Sub CountdownRefresh()
    If Now > Zeit Then
        'Mach was oder auch nicht!  
    Else
        UserForm1.Label1.Caption = FormatDateTime(Zeit - Now, vbLongTime)
        Application.OnTime Time + 0.0000114, "CountdownRefresh"  
    End If
End Sub