Each letter represent a category. Example the group with "M" Code is greater Than "I" and "C" group. "F" is the higher group
Here is what I did but I wonder if there is a better way to do it.
Private Function CompareCode(ByVal code As String, ByVal otherCode As String) As Boolean
Dim orderedCode As New List(Of String)
orderedCode.Add("I")
orderedCode.Add("C")
orderedCode.Add("M")
orderedCode.Add("F")
Return orderedCode.IndexOf(code) < orderedCode.IndexOf(otherCode)
End Function