SortedDictionary Powerful tool

Dim CheckSecurity As ctrl_secure = ctrl_secure Dim bValue As Boolean Dim dic As SortedDictionary(Of String, Int32) = CType(Session("UserAuthorizations"), SortedDictionary(Of String, Int32)) If ((dic.ContainsKey("A")) And (dic.Item("A") > 1)) Or ((dic.ContainsKey("B")) And (dic.Item("B") > 1)) Then bValue = True End If