Visual Basik 6(файлы в работе с матрицами) завтра сдача :(

[mikelugansk]

Даны два целых числа I, J и файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы матрицы (по строкам). Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент находится в нулевой части матрицы, то вывести 0;если элемент отсутствует, то вывести -1.

[mikelugansk]

Помагите пожалуйста, очень срочно надо

[mikelugansk]

Я уже сам справился

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim y As Integer
Dim d As String
Dim a(1 To 10, 1 To 10) As Single
i = InputBox("Введите номер строки")
j = InputBox("Введите номер столбца")
Open App.Path & "\1.txt" For Input As #2
Do Until EOF(2)
Line Input #2, d
y = y + 1 'кол-во строк (и столбцов, т.к. матрица-квадратная)
Loop
Close #2
Open App.Path & "\1.txt" For Input As #1
For m = 1 To y
For n = 1 To y
Input #1, a(m, n)
Next n
Next m
Close #1
Print a(i, j)
End Sub