Calcular Horas

[Koudelka]

creo que no lo he colocado bien, yo he puesto esto:

Private Sub fin_Click()
Me.TxtHoraFinal = Time()

MsgBox TxtHoraInicio
MsgBox TxtHoraFinal
MsgBox DateDiff("s", TxtHoraInicial, TxtHoraFinal)
TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

'Me.TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))
End Sub