Problema con Horarios y Fechas

[davchi]

Ahora he pasado del diurno1.Text y diurno2.Text a

Código:

Private sub Form_load()

With MaskEdBox1
    .Format = "hh:mm"
    .Mask = "##:##"
    End With
    
    With MaskEdBox2
    .Format = "hh:mm"
    .Mask = "##:##"
    End With

End Sub


Private Sub DTPicker2_LostFocus()
    If DTPicker2 < MaskEdBox1 Or DTPicker2 > MaskEdBox2 Then
    HN.Visible = True
    Else
    HN.Visible = False
    End If
End Sub

Ya con esto no hay posibilidad que haya errores en los Formatos , pero igualmente no hace nada