найти максимальное значение в DataGridView

Dim max As Integer = DataGridView1(0, 0).Value
        For i As Integer = 0 To DataGridView1.Columns.Count - 1
            For j As Integer = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1(i, j).Value > max Then
                    max = DataGridView1(i, j).Value
                End If
            Next
        Next
        MessageBox.Show(max)

Dim firstnum As Boolean = True ' тут мы отметим первое встреченное число и сделаем его максимумом. Этой же переменной в конце проверим, а были ли числа вообще в наборе ячеек.
        Dim max As Single ' надо другой числовой тип - нет проблем, только и операторы пиведения 'cSng' по коду тоже заменить на соотв.
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            For Each cell As DataGridViewCell In row.Cells
                If IsNumeric(cell.Value) = True And firstnum = True Then
                    max = CSng(cell.Value)
                    firstnum = False
                ElseIf firstnum = False And IsNumeric(cell.Value) = True Then
                    max = Math.Max(max, CSng(cell.Value)) ' надо min - меняем math.Max на Math.Min
                End If
            Next
        Next
        Select Case firstnum
            Case Is = True
                MsgBox("В таблице нет чисел")
            Case Is = False
                MsgBox(max)
        End Select