ผมขอเทคนิคการนับจำนวนเลขซ้ำใน Array หน่อยครับจะเอามาปรับแต่งใช้ครับ

Dim Finstr As String = "1"
Dim  CountNum As Integer = 0
For Each Str as String In a
   if Str.Contains(Finstr) Then
      CountNum += 1
   End if
Next
MsgBox("มีตัวเลข 1 อยู่ทั้งหมด  " & CountNum & " ตัว")

Dim a() As Integer = {1,2,3,1,1,3,2}

Public Function CheckNumber(s As String,NumCheck As String) As Integer
      Dim GetStr() as String = Split(s,",")
      Dim CountNum As Integer = 0
    For Each Str As String In GetStr
           If Str.Contains(NumCheck) Then
                CountNum += 1
            End If
    Next
    Reture CountNum
End Function

Dim a() As Integer = {1, 2, 3, 1, 1, 3, 2}
        a.Distinct().ToList().ForEach(Sub(_num) MessageBox.Show(a.Count(Function(s) s = _num)))