замена минимальных элементов массива на число L

[sens69]

нужно заменить минимальные элементы матрицы на число L. Массив генерирует числа автоматически при помощи
For I = 0 To N - 1
For j = 0 To m - 1
A(I, j) = Int(21 * Rnd - 10)
Next j
Next I

далее вывод этих элементов на MSFlexGrid
Private Sub Command4_Click()

MSFlexGrid2.Rows = N + 1
MSFlexGrid2.Cols = m + 1

MSFlexGrid2.Row = 0
For j = 0 To m
MSFlexGrid2.Col = j
MSFlexGrid2.ColWidth(j) = 700
MSFlexGrid2.Text = j
Next j


MSFlexGrid2.Col = 0
MSFlexGrid2.ColWidth(0) = 300
For I = 0 To N
MSFlexGrid2.Row = I
MSFlexGrid2.Text = I
Next I

For I = 0 To N - 1
MSFlexGrid2.Row = I + 1
For j = 0 To m - 1
MSFlexGrid2.Col = j + 1
MSFlexGrid2.Text = A(I, j)
Next j
Next I


поиск минимальных элементов и замена их на L
l = Val(Text4.Text)
Picture2.Cls
For j = 0 To m
For I = 0 To N
If A(I, j) < Min Then A(I, j) = l
Next I
Next j
Picture2.Print Min
End Sub

в конечном счете получается,что заменяются не минимальные элементы,а все отрицательные числа. помогите найти ошибку