SoloCodigo

en el proyecto k estoy realizando tengo que sumar horas para ello lo que hago es pasarlas a decimal hacer con ellas lo que tengo k hacer y luego las vuelvo a combertir a formato hora con las siguientes funciones:

Public Function HorasDec(h As Variant) As Variant
'función que combierte una hora en decimal
If Not IsNull(h) Then
    HorasDec = Hour(h) + Minute(h) / 60 ' + Second(h) / 3600
End If
End Function

Public Function DecHoras(h As Variant) As Variant
'función que combierte un número decimal a formato hora

Dim nhoras As Integer
Dim nminutos As Integer
'Dim nsegundos As Integer

nhoras = Int(h)
nminutos = Int((h - nhoras) * 60)
nsegundos = Int(((h - nhoras) * 60 - nminutos) * 60)
If nsegundos = 59 Then
    nminutos = nminutos + 1
End If
   
DecHoras = nhoras & ":" & nminutos '& ":" & nsegundos
End Function

El problema k tengo es que cuando llamo a la función HorasDec con una hora por ejemplo 25:00 la función hour no funciona ya que solo funciona con horas de 0 a 24 como podría solucionarlo para que si tengo 100horas por ejemplo me funcione y no me de erro de tipos.
Gracias y un saludo.