Calcular Horas

[Taribo007]

Asi te tiene que salir:

MsgBox TxtHoraInicio
MsgBox TxtHoraFinal
MsgBox DateDiff("s", TxtHoraInicio, TxtHoraFinal)
MsgBox HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

Y cambia la funcion por esta:

Public Function HoraMinutosSegundos(Seg As Long) As Date
Dim Horas As Long
Dim Minutos As Long

Horas = Int(Seg / 3600)
Seg = Seg - Horas * 3600

Minutos = Int(Seg / 60)
Seg = Seg - Minutos * 60

HoraMinutosSegundos = TimeSerial(Horas, Minutos, Seg)
End Function

Un saludo