Двумерный массив - VB (58747)

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

Здравствуйте, у меня очередное задание которое я немогу зделать хотя знаю что оно лёгкое как перышко. Вообщем я весь интернет перекопал и нашол только один пример, как правильно написать нужную мне программу. Вот задание: Создать Двумерный массив (Любой длинны), и дать пользователю его заполнить. После того, как пользователь заканчивает ввод данных в массив, нужно вывести массив на экран, и найти наименьшее негативное число в массиве и показать его позицию. Тоесть есле массив: 2 4 -6 -1 4 5 -6 5 5 1 12 -99 На экран выводится: Наименьшое число в масиве: -99 в позиции (2, 3). Есле нету негативной записи в массиве, вывести это пользaвателю. Вот код каторый переделал под себя:

Sub masivs()
    Dim Dbl_Array(3, 4) As Single
    Dim i As Integer, j As Integer
    
    For i = 1 To 3
        For j = 1 To 4
            Dbl_Array(i, j) = InputBox("Ievadi skaitli prieks" & " elementa: (" & i & " , " & j & ")", "Elementu ievade masiva rindai" &  i)
        Next j
    Next i
    MsgBox Dbl_Array(i, j)
End Sub

Так вот вопрос, как можно вывести на экран мой массив каторый пользователь заполнил. (Я по логике это зделал в своём примере, но выводит : Subscript out of range. Второй вопроc, как найти самый наименьший негативный елемент массива. Благодарю за помощь.

Решение задачи: «Двумерный массив»

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

                            Function min-neg(A() as double) As double
   min-neg=0
   for i%=1 to Ubound(A,1)
       if A(i%)<0 and A(i%)<min-neg then min-neg=A(i%)
   next i%
End function
                        