Função

Ola galera tudo bom? eu estou tempo um probleminha com essa função aqui ela serve para calcular a diferença de um periodo de tempo por exemplo (das 8:00 as 12:00 = 4 horas) quando a função calcula horas inteiras como 8:00, 9:00, 11:00 e assim por diante ele funciona normalmente mais quando são "horas quebradas" como 8:25, 9:45 e assim por diante essa função começa a calcular o intervalo errado pegando tempo a mais, alguem sabe se existe outra função que faça isso ou como eu posso modificar essa para que ela funcione corretamente qualquer ajuda e válida =) agradeço antecipadamente

Function CalculaHora(HrIni, HrFim) As Double
Dim dblDifHoras As Double
Dim Test1 As Date
Dim test2 As Date
Dim test3 As Date
If IsNull(HrIni + HrFim) Then Exit Function
dblDifHoras = DateDiff("n", HrIni, HrFim)
CalculaHora = dblDifHoras
CalculaHora = dblDifHoras / 60
End Function