Userform nach OK - LAnge Wartezeit

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 = "Informationen"
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 = "INFO"
End Sub