Не работает код, конвертированный из C# (не закрашивает ячейки DataGridView) - Visual Basic .NET

Формулировка задачи:

Имеется код переделанный из c#, код должен искать значение в datagridview1, первое значение красить красным, последующие рандомным цветом, однако код только ищет значение, изменение цвета текста не пашет, что не так? Код поиска и закрашивания:

Private count As Integer = 0
    Private Sub button5_Click(sender As Object, e As EventArgs) Handles button5.Click
        Dim count As Integer
        If textBox1.Text.Equals("") Then
            MessageBox.Show("Вы не ввели все необходимые данные!!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        Else
            System.Math.Max(System.Threading.Interlocked.Increment(count), count - 1)
            Dim colorr As Color = func(count)
            Dim i As Integer = 0
            While i < DataGridView1.ColumnCount
                Dim j As Integer = 0
                While j < DataGridView1.RowCount
                    If DataGridView1(i, j).FormattedValue.ToString().Contains(textBox1.Text.Trim()) Then
                        DataGridView1.CurrentCell = DataGridView1(i, j)
                        If i < DataGridView1.RowCount - 1 Then
                            If j < DataGridView1.RowCount - 1 Then
                                DataGridView1(i, j).Style.ForeColor = colorr
                            End If
                        End If
                    End If
                    System.Math.Max(System.Threading.Interlocked.Increment(j), j - 1)
                End While
                System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
            End While
        End If
    End Sub
 
    Private Function func(count As Integer)
        If count = 1 Then
            Return Color.Red
        End If
        Dim rand As New Random()
        Return Color.FromArgb(255, rand.[Next](0, 255), rand.[Next](0, 255), rand.[Next](0, 255))
    End Function

Решение задачи: «Не работает код, конвертированный из C# (не закрашивает ячейки DataGridView)»

textual
                            Листинг программы 
                        

                            Private count As Integer = 0
    Private Sub button5_Click(sender As Object, e As EventArgs) Handles button5.Click
        If textBox1.Text.Equals("") Then
            MessageBox.Show("Вы не ввели все необходимые данные!!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        Else
            System.Math.Max(System.Threading.Interlocked.Increment(count),count - 1)
            Dim colorr As Color = func()
            Dim i As Integer = 0
            While i < DataGridView1.ColumnCount
                Dim j As Integer = 0
                While j < DataGridView1.RowCount
                    If DataGridView1(i, j).FormattedValue.ToString().Contains(textBox1.Text.Trim()) Then
                        DataGridView1.CurrentCell = DataGridView1(i, j)
                        If i < DataGridView1.RowCount - 1 Then
                            If j < DataGridView1.ColumnCount - 1 Then
                                DataGridView1(i, j).Style.ForeColor = colorr
                            End If
                        End If
                    End If
                    System.Math.Max(System.Threading.Interlocked.Increment(j), j - 1)
                End While
                System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
            End While
        End If
    End Sub
 
    Private Function func() As Color
        If count = 1 Then
            Return Color.Red
        End If
        Dim rand As New Random()
        Return Color.FromArgb(255, rand.[Next](0, 255), rand.[Next](0, 255), rand.[Next](0, 255))
    End Function
                        