Сравнение числа из матрицы

[ozhenya]

Здравствуйте всем!
Есть такая проблема:

Sub math(min, mz, nz, VV() As Integer)
Dim m As Byte, n As Byte
Dim i As Byte, j As Byte
Dim alfa As Byte
alfa = InputBox("константа alfa ( пример 10 )")
For i = 1 To mz
For j = 1 To nz
If VV(i, j) > alfa Then
min = VV(i, j)


End If





Next j
Next i
Print #1, "Матриця 1:",
Print #1, "числа матрицы №1=",
Print #1, alfa
'Виведення на лист розрахованих значень
ActiveCell.Value = "Значения, которые больше, чем альфа в первой матрице  =" & min

ActiveCell.Font.Size = 12
ActiveCell.Font.Name = "Times New Roman"
ActiveCell.Font.FontStyle = "Bold Italic"
ActiveCell.Offset(1, 0).Select
'Виведення у вікно immediate
Debug.Print " " & vbNewLine
Debug.Print "Значения, которые больше, чем альфа в первой матрице = " & min
End Sub

не могу понять, как сделать так, чтоб эта подпрограмма при вводе константы aльфа проверяла в матрице ( матрица в другом участке кода )
все числа, которые больше её, и выводила либо в новую матрицу, либо в мсдж бокс.
Буду очень благодарен за помощь