Calcular Horas

[Koudelka]

veamos, he cambiaod un nombre y ya la primera ventana ya no me sale en blanco, me muetsra la hora, pero sigu dando el error 6

Tengo puesto lo siguiente (cambiando alguna palabra y juntando las ff de dateDiff)

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

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

'me.TxtTiempoTrancurrido=HoraMinutosSegundos(Dated iff ("s", TxtHoraInicio, TxtHoraFinal))
End Sub