Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы - VB

Option Explicit
 
Dim a As Double
Dim s As String, j As Long
Dim n As Long, i As Long, m As Long, k As Long
 
Private Sub cmdD_Click()
    Open "1.txt" For Input As #1
        i = 3
        j = 5
        Input #1, s
        n = Val(s)
        m = n * (i - 1) + j + 1
        k = 0
        Do
            Line Input #1, s
            k = k + 1
        Loop Until EOF(1)
        Close #1
        If k < m Then
            Print "0"
            GoTo 100
        End If
    Open "1.txt" For Input As #1
        k = 0
        Do
            Line Input #1, s
            k = k + 1
            If k = m Then Print s
        Loop Until EOF(1)
100
    Close #1
End Sub