Private Sub Command1_Click()
    Dim lngStartTime As Long
 
    lngStartTime = Timer
    Do While Timer - lngStartTime < 2
        DoEvents
    Loop
    MsgBox "2 Sekunden sind um !", vbInformation
End

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1