Option Explicit
Dim CountIt As Integer 'Variable deklarieren als integer (Zahl)
 
Private Sub Form_Load()
Combo1.Text = "" 'Leer machen, damit man den Wert eingeben muss
End Sub
 
Private Sub Command1_Click()
If Not Combo1.Text = "" Then
  CountIt = Combo1.Text ' Den Anfangswert für den Zähler festlegen, natürlich 
  ' die Zahl die in der Combo1 steht
        Timer1.Enabled = True
            Else
                MsgBox "Zahlenwert vergessen!"
            Exit Sub
        End If
End Sub
 
 
Private Sub Timer1_Timer()
On Error Resume Next
  CountIt = CountIt - 1 ' Nun wird immer um eins abgezogen
  label1.Caption = CStr(CountIt)
        If label1.Caption = "0" Then
            MsgBox "hurra"
            Timer1.Enabled = False
        End If
End Sub