Определить среднее арифметическое положительных элементов матрицы - VB

Option Explicit
 
Sub Matr(A() As Integer) 'Функция должна что-то возвращать (хотя и не обязана). Пусть будет Sub ...
Dim sum  As Long
Dim k As Integer
Dim i As Integer
Dim j As Integer
For i = LBound(A, 1) To UBound(A, 1)
    For j = LBound(A, 2) To UBound(A, 2)
        A(i, j) = Int(Rnd() * 20 - 10)
        If A(i, j) > 0 Then sum = sum + A(i, j): k = k + 1
    Next
Next
MsgBox IIf(k > 0, sum / k, "нет положительных элементов")
End Sub
 
Sub proga()
Dim A() As Integer, m As Integer, n As Integer
n = InputBox("Введите кол-во строк")
m = InputBox("Введите кол-во столбцов")
ReDim A(1 To n, 1 To m)
Matr A
End Sub