Timer!

antes que nada pones un Relojito y en "interval" le pones el tiempo que trascurrira entre cada ejecucion de la funcion(por ejemplo 100) y le pones en "Enabled" le pones true

Private Sub Timer1_Timer()
    Call diHola
End Sub
 
Private Sub diHola()
    MsgBox "hola!"
End Sub
 
 

solucionado

 
   Private Sub form_load()
 
Timer1.Interval = 1
Timer1.Enabled = True
 
 
 
 
    End Sub
 
 

para el timer

 
Private Sub Timer1_Timer()
Timer1.Enabled = True
codigo
End Sub
 
 

ese es el q uso y funca u_u