Файлы, работа с матрицами - VB

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

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

Я уже сделал, вот может пригодится кому

                    Листинг программы
                
 
                        
                          
                    
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
If a(i, j) <> 0 Then
Print -1
Else
Print 0
End If
End Sub

Решение задачи: «Файлы, работа с матрицами»

textual
                            Листинг программы 
                        
       fi=FreeFile
       Open .... as #fi
       ...
       Close #fi