Wo is der Fehler, das ich trotz ok 16 sek warten m

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub Label1_Click()
End Sub

Private Sub UserForm_Activate()
Dim Pausenlänge, Start, Ende, Gesamtdauer
Pausenlänge = 16 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
UserForm1.Caption = "VW-Mosel - Benutzerinformation"
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
UserForm1.Caption = "VW-Mosel"
End Sub