Loop fejler hver 32767 gang.

Hej Experts,

US keyboard.
Jeg har lavet et script som kalder en funktion der skal kore hvert sekundt i 24 timer.

Det ser ud til at virke helt fint, men problemet er jeg modtager en overflow fejl hver 32767 record.

Sub test()
   
    Dim check As Boolean
    Dim counter As Long
    check = True
    counter = 0
   
    Dim hours As Long
    Dim RunInSeconds As Long
   
    hours = 24
    RunInSeconds = 3600 * hours

    Do
        Do While counter < RunInSeconds + 1
            counter = counter + 1
            If counter = RunInSeconds Then
                check = False
                Exit Do
            End If
        'Call wait4Xsec(1)
        Sleep 1000
        Call take_meas(counter)
        Loop
    Loop Until check = False
End Sub