'in ein Modul (z.B. Modul1) muß:
    Public nMin As Long
 
'in den Timer kommt:
Private Sub Timer1_Timer()
    nMin = nMin + 1
    If nMin = 1 Then
        Form1.Label1.Caption = Str(nMin) & " Minuten vorbei"
        MsgBox Str(nMin) & " Minute vorbei"
    Else
        Form1.Label1.Caption = Str(nMin) & " Minuten vorbei"
        MsgBox Str(nMin) & " Minuten vorbei"
    End If
End Sub