Private arg As Integer
    Private cnt As Integer
 
    Private Sub Count(ByVal i As Integer)
        If i = arg Then cnt += 1
    End Sub
 
    Private Sub Test()
 
        Dim arr() As Integer = {8, 1, 4, 5, 2, 1, 3, 7, 1, 4}
        arg = 1 ' Suchen nach
 
        ' Mit Array.ForEach() Methode 
        Array.ForEach(arr, AddressOf Count)
        Debug.WriteLine(cnt.ToString())
 
        ' Mit For Each
        cnt = 0
        For Each i As Integer In arr
            If i = arg Then cnt += 1
        Next
        Debug.WriteLine(cnt.ToString())
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov