Code:
Public Sub Pause(Zeit As Variant) 'Variable Zeit wird als variablentyp variant übergeben
Zeit = CDec(Zeit) 'variable zeit wird in eine dezimalzal umgewandelt
Start = Timer 'Variable Start wird der wert von Timer zugewisen
Anfang = 0 'Variable Anfang wird 0 gesetzt
Do While Anfang < Zeit 'während variable anfang kleiner variable zeit ist soll er folgendes tun:
Anfang = Timer - Start 'Variable anfang ist variable timer weniger timer von anfang
DoEvents ' ka was das soll
Loop ' ende der do while schleife
End Sub 'ende des subs
hoffe es hilft ein wenig