Visual Basic.NET - Como desglosar turno en horas diurnas y horas nocturnas

Dim he, hs As Variant

he = Format(Text1, "hh:mm")

hs = Format(Text2, "hh:mm")

If TimeValue(he) < TimeValue(hs) And TimeValue(he) < #10:00:00 PM# And TimeValue(hs) <= #10:00:00 PM# Then

    hd = TimeValue(he) - TimeValue(hs)

    hn = "00:00"

    Debug.Print "menor"

ElseIf TimeValue(he) < #10:00:00 PM# And TimeValue(hs) > #10:00:00 PM# And TimeValue(hs) <= #6:00:00 AM# Then

    hd = TimeValue(he) - #10:00:00 PM#

    hn = TimeValue(hs) + 1 - #10:00:00 PM#

    Debug.Print hn

    If hn > 0.333333333333334 Then

        MsgBox "Revise el turno, las horas nocturnas no puede sobrepasar las 8 horas"

        Text2.SetFocus

    End If

Else

    hd = #10:00:00 PM# - TimeValue(he)

    hn = TimeValue(hs) + 1 - #10:00:00 PM#

    Debug.Print hn

    If hn > 0.333333333333334 Then

        MsgBox "Revise el turno, las horas nocturnas no puede sobrepasar las 8 horas"

        Text2.SetFocus

    End If

End If

Label3 = Format(hd, "hh:mm")

Label4 = Format(hn, "hh:mm")

Label8 = Format(hds, "hh:mm")

' Tengo un  TextBox llamada TBHora.Text

        Dim Hora As String

        Hora = String.Format("{0:HH:mm:ss}", CType(TBHora.Text, DateTime))

        Select Case Hora

            Case "00:00" To "06:00:01", Is >= "22:00"

                MessageBox.Show("Noche")

            Case Else

                MessageBox.Show("Diá")

        End Select

' ... ... ...

' Tengo dos TextBox llamadas TBHoraInicial y TBHoraFinal

        Dim HoraIni As DateTime

        Dim HoraFin As DateTime

        Dim Duracion As TimeSpan

        HoraIni = CType(TBHoraInicial.Text, DateTime)

        HoraFin = CType(TBHoraFinal.Text, DateTime)

        If HoraFin < HoraIni Then

            HoraFin = HoraFin.AddHours(24)

        End If

        Duracion = HoraFin - HoraIni   ' Este el tiempo de trabajo