der quellcode ist schwachsinnig:
1. du verwendest eine funktion, die keinen rückgabewert hat, dafür gibts subs
2. deine funktion hat einen Parameter 22 oO, parameter werden mit byval operator übergeben und repräsentieren Variablen in der Funktion, 22 ist eine Zahl und kein Parameter (bereits hier ein fehler denke ich)
3. du deklarierst 4 Variablen ohne ihnen einen Type zu zuweisen, ihnen wird kein wert zugewiesen und du verwurschtelst sie.
4. Die variable/funktion/sub/Konstante/what ever "seconds" ist nicht deklariert/definiert (gibt auch einen Fehler)
5. Aus dem Variablensalat darüber ergibt die Schleife 0,00000^0% Sinn.
Fazit:
Du scheinst keinen blassen Schimmer von dem zu haben, was du da erstellst/kopiert hast.