Zeit in PPT-Präsentation laufen lassen

Private Function Datenzeit() As Variant
Dim mytime
PauseTime = 1    ' Set duration.
Start = Timer    ' Set start time.
Do While Timer < Start + PauseTime
DoEvents    ' Yield to other processes.
Loop
Finish = Timer    ' Set end time.
TotalTime = Finish - Start    ' Calculate total time.
mytime = Date & " " & time
Datenzeit = mytime
End Function

Private Sub UserForm_Activate()
Zeit = Datenzeit()
End Sub

Private Sub zeit_change()
Start:
Zeit = Datenzeit()
End Sub