'Gibt die seit dem Systemstart vergange Zeit zurück
Public Declare Function GetTickCount Lib "kernel32.dll"() As Long
 
Public Function GibMir(eingabe) As Variant 
    Dim mTime As Long
    Do While Zustand = False 
        ' Nur alle 100 ms ein DoEvents
        If mTime - GetTickCount <= 0 Then
            mTime = GetTickCount + 100
            DoEvents 
        End If
    Loop 
    GibMir = eingabe + 1 
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)