Private Sub Warten()
Dim StartTime As Long
Dim Pausenlaenge As Long
 
 Pausenlaenge = 10    ' Speichert die Pausenlänge 10 = 10 Sekunden
 StartTime = Timer       ' Startzeit merken
 
 ' Die Schleife wird solange durchlaufen, bis die 10 Sekunden erreicht sind
 ' Timer liefert die Sekunden, die seit Mitternacht vergangen sind
 ' Damit die Schleife auch abgebrochen wird, wenn der User auf einen der beiden
 ' Button's geklickt hat, würde ich ein Text in die TAG Eigenschaft des Button's
 ' beim Klicken schreiben und in der Schleife abfragen.
 
  Do While Timer < StartTime + Pausenlaenge
   DoEvents  '  Steuerung an das OS übergeben (F1=Hilfe *G*)
    If CommandButton1.Tag = "WEITER" Then
     CommandButton1.Tag = vbNullString  ' Bricht die Schleife ab, sobald der 
     ' User ein
     Exit Do  ' Button geklickt hat. um den nachfolgenden Code auszuführen
    End If
  Loop
 
  MsgBox "Weiterer Code wird ausgeführt"
  ' .. weiteren Code ausführen
  ' ..
End Sub
 
Private Sub CommandButton1_Click()
 MsgBox ("1")
 CommandButton1.Tag = "WEITER"
End Sub
 
Private Sub CommandButton2_Click()
 MsgBox ("2")
 CommandButton1.Tag = "WEITER"
End Sub
 
Private Sub UserForm_Activate()
 Warten
End Sub

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)