Visual Basic - Función para separar tipo de horas de un turno

Hola necesito una función que separe el tipo de hora, diurna y nocturna de un turno, ejemplo: turnos hora inicio 13 hora final 01 madrugada día siguiente, horas diurnas de 13 a 22= 9 horas, horas nocturnas de 22 a 01= 3 horas, gracias por todo

Algoritmo

si hora final < hora inicial entonces
Tiempo = horafinal - horainicial
sino
Tiempo = (24- Horainicial) + Hora final
fin

Buenas Raúl,

con esta función no se desglosa el turno en las horas nocturnas y las horas diurnas, gracias

HorasTotales = HoraInicial - HoraFinal
HorasDiurnas = 22 - HoraInicial
HorasNocturnas = HorasTotales - HorasDiurnas