Public Function CheckForward(ByVal Discipline As String, ByVal Name As String, ByVal Value As String) As Boolean
        Dim tmp() As String = Split(Value, ",")
        Dim found As Boolean = False
        For i As Integer = 0 To UBound(tmp)
            Dim tmp2() As String = Split(tmp(i), "|")
            If Discipline = tmp2(0) And Name = tmp2(1) Then found = True
        Next
        Return found
End Function