Mi da un errore di overflow ti posto il codice

codice:
Dim Orario As String
Dim mat() As String
Dim h As Integer, m As Integer, s As Integer

Option Explicit

Private Sub Form_Load()
 Orario = Format(Time, "Long Time")
 mat = Split(Orario, ".")
 h = mat(0)
 m = mat(1)
 s = mat(2)
 Print "form è stato aperto alle ore "
 Print h
 Print m
 Print s
 Timer1.Enabled = True
 
 
 
End Sub

Private Sub Timer1_Timer()
Dim tmp() As Integer
Dim sys As Integer

sys = Format(Time, "Long Time")
tmp = Split(sys, ".")
If (tmp(0) = h) And (m = tmp(1) + 1) And (s = tmp(2)) Then
 Print ""
 Print "E' passato un minuto"
 Print tmp(0)
 Print tmp(1)
 Print tmp(2)
Else
 Print "no"
End If
End Sub