Dim ai(255) As Integer
        Dim hex As String = "00 E2 00 E4 E9 00 E1 00 00 E7 00 00 00 00 E1 E1 AE" & _
          "01 AE"
 
        For i As Integer = 0 To Len(hex) - 1 Step 3
            Dim v As Integer = Integer.Parse(hex.Substring(i, 2), _
              System.Globalization.NumberStyles.AllowHexSpecifier)
            ai(v) += 1
        Next
        Dim ip, im As Integer
        For i As Integer = 0 To 255
            'Debug.WriteLine(i.ToString("x2") + " " + ai(i).ToString())
            If ai(i) > im Then
                ip = i
                im = ai(i)
            End If
        Next
        Debug.WriteLine("Most common value is: " + ip.ToString("X2") + " occurs" & _
          "" + im.ToString() + " times")