Timer in Label

Sub StartTimer()
Application.OnTime Zeit, "MeineWB"
End Sub

Sub ResetTimer()
On Error Resume Next
Application.OnTime earliesttime:=Zeit, procedure:="MeineWB", schedule:=False
On Error GoTo 0
End Sub

Sub MeineWB()
On Error Resume Next
Dim A As Long
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(A, 1) > "" Then Linkaufruf Cells(A, 1)
Next A
Zeit = Now + CDate("01:00:00")
StartTimer
End Sub

Function Linkaufruf(strSeite As String)
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = False  'False ist unsichtbar    True ist Sichtbar
appIE.Navigate strSeite
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
'Application.Wait (Now + TimeValue("00:00:02"))
appIE.Quit
Set appIE = Nothing
End Function

Nun würd ich gerne beim Timerstart eine UF mit Label öffnen, in der die rückwärts laufende Zeit bis zum nächsten Timer-Start angezeigt wird (also rückwärts laufend von 01:00:00 bis 00:00:00).
Könnte mir da jemand helfen? Habe schon rumprobiert, aber irgendwie bleibt das Label immer leer.
Wahrscheinlich steh ich mal wieder total auf dem Schlauch.
Vielen Dank.
Gruß aus dem Sauerland
Jens