Private Sub Form_Load()
    Timer1.Interval = 60000
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Static Tiempo As Integer 'la variable es estatica para que no vuelva a 0 al salir de la sub
    
    If Tiempo < 60 Then 'como el timer va a aumentar cada 1 minutos, cuando llegamos a los 60 mins ya tenemos 1 hora =)
        Tiempo = Tiempo + 1 'vamos sumando de a 1
    Else 'si el tiempo es es igual a 60 entonces ya paso 1 hora
        MsgBox "Ya paso una hora" 'aca pone la accion que queres que haga tu programa
        Tiempo = 0 'resetamos todo
        Timer1.Enabled = False 'paramos el timer
    End If
End Sub

Public Sub Esperar(Segundos As Long)
    Dim n1 As Long
    n1 = Timer
    Do While Timer - n1 < Segundos
        DoEvents
    Loop
End Sub