Fehler im code ?

[nelly3500]

Hallo,
Ich will ein Programm coden der jede 60 sekunden einmal auf die leertaste ein klick simuliert nun habe ich mit hilfe diesen code :

Public Function warte(22)
    Dim szeit, azeit, Zeit, wzeit

    szeit = Timer
    azeit = szeit
    Zeit = 0

    wzeit = seconds

    Do Until Zeit > wzeit
        azeit = Timer
        Zeit = azeit - szeit
    Loop

End Function

Sub stefan()
    Dim i As Integer
    For i = 1 To 100
        SendKeys(" ")
        warte(60)
    Next i
End Sub

nur der hat ein Fehler kann mir einer sagen woran das liegen kann ?
bzw wo der liegt ?