Restar horas

Saludos, como estas espero que bien, tengo una consulta, cuento con el siguiente código para restar horas
Dim horainicio As Date
Dim horatermino As Date
Dim horalaborales As Date
Dim horacolacion As Date
Dim totalhoras As Date
If Text4.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
    MsgBox ("Debe de introducir datos")
Else
horainicio = Text2
horatermino = Text3
horalaborales = Text4
horacolacion = Text1
totalhoras = ((horatermino - horainicio) - horacolacion) - horalaborales
Text5 = totalhoras
End If
End Sub
Me hace todo bien, pero cuando por ejemplo una persona entro a las 8:00 y salio a las 17:00, con 9:00 horas laborales, y con 1 hora de colación, no debería tener horas extras, pero me marca 1:00, como puedo decirle que si es una hora negativa me coloque 0 o una hora negativa, gracias