Visual Basic - consulta hora de entra y salida

buenas tardes lawebdelprogramador ayuda con un codigo por favor mi nombre rodrigo apredendiz visual basic 6

tengo una consulta quiero retar al total de hora una hora de colacion
este el codigo
por ejemlo ingreso 08:00 salida 18:00 total = 10:00

lo que necesito es restar al total horas una hora de colacion

quedaria 9:00 en total




Dim lHoras As Long, lMinutos As Long
Dim n As Integer



Private Sub Command3_Click()
lMinutos = DateDiff("n", TxtEntrada, TxtSalida)

lHoras = lMinutos \ 60

lMinutos = lMinutos - (lHoras * 60)

MsgBox lHoras & ":" & Format(lMinutos, "00")
End Sub

Hola Rodrigo:
le hice un lijero cambio a tu codigo

Dim lHoras As Long, lMinutos As Long
Dim n As Integer
Dim horas As Integer


Private Sub Command1_Click()
lMinutos = DateDiff("n", txtentrada, txtsalida)

lHoras = lMinutos \ 60
horas = lHoras - 1

lMinutos = lMinutos - (lHoras * 60)

MsgBox horas & ":" & Format(lMinutos, "00")
End Sub

muchas gracias por la respuesta me sirvio