Hay mil maneras de hacer eto, aca hay un ejemplo que creo es de lo mas facil

Option Explicit

Private lTime As Long

Private Sub Form_Load()
    lTime = Timer
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    If lTime + 10 < Timer Then
        Debug.Print "OK"
        lTime = Timer
    End If
    Timer1.Enabled = True
End Sub

see me equivoque , vi tu code por encima, pero tu tambien te equivocaste lee:

Jeje, saludos

Pdata. No modifiques los post
Si hace eso, entonces si se ejecuta la funcion cada segundo.

HaDeS mi intencion aca es cooperar y ayudar a los demas, si quiero competir me anoto en un concurso ok? si mi codigo esta mal o malinterprete una pregunta lo lamento soy humano.

Con respecto a las 3 soluciones que se presentaron te digo la tuya es literalmente lo que el dice, cosa que no tiene mucho sentido, para que utilizar un timer para verificar el tiempo cada 1 seg si la funcion que vas a ejecutar esta dentro de un loop? en todo caso es exactamente lo mismo que presento H4NG3R y la respuesta de el es mas simple y no depende de un timer. Con respecto a mi funcion "que si funciona" es mucho mas flexible, podes ejecutar tu codigo cana N millisecs o podes poner un intervalo de 1 millisec y vas  a tener practicamente el  el mismo efecto que en un loop y dependiendo de donde pongas tu funcion si en el if o en el else tambien podes ejecutar el codigo cada N segundos.

Okas, mira podes declarar de varias formas las variables, ya te explico, mejor dicho te hago una tablita:
Tipo      Equivalencia
Integer      %
Long      &
Single      !
Double      #
Currency   @
String      $

Asi que:
Dim Tiempo&
equivale a decir
Dim Tiempo As Long

Solo los que he mencionado tienen esa equivalencia, los otros tipos de datos no la tiene...

Lo hago para ahorrarme el tener que copiar tanto.

Por otro lado la instruccion call solo se usa para llamar una funcion.
Es equivalente a decir
Verificar "10"

Es todo

Saludos