강의하구 몇번을 대조해봤는데.....답이 안나오네요...ㅜㅜ

검산 숫자를 입력하면 ans1에는 앞의 숫자 3자리밖에 나오질 않아요..

어디가 틀린거죠??ㅜㅜ

''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
''핵심 변수 선언
    Dim 예약수량, 예약금액, 지불금액(1000), 예약일자(1000), 등록번호(1000), j, temp, num As Variant
   
''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수1 = Val(Mid(Command, InStr(Command, " ")))

''입력파일 처리
    Open "c:\c_it\data\abc06.txt" For Input As #1
   
    For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
       
    ''변수 저장
    예약수량 = Val(Mid(버퍼, 18, 5))
    예약금액 = Val(Mid(버퍼, 23, 10))
   
   
    If 예약수량 * 예약금액 >= 700000 Then
        num = num + 1
        지불금액(num) = Val(Mid(버퍼, 48, 10))
        예약일자(num) = Trim(Mid(버퍼, 8, 10))
        등록번호(num) = Trim(Mid(버퍼, 1, 7))
    End If
    End If
    Next i
   
    ''정렬(지불금액에 따라 오름차순 or(합계같음 and 등록번호 오름차순))
       
        For i = 1 To num
            For j = i To num
                If 지불금액(i) > 지불금액(j) Or (지불금액(i) = 지불금액(j) And 등록번호(i) > 등록번호(j)) Then
                    temp = 지불금액(i)
                    지불금액(i) = 지불금액(j)
                    지불금액(j) = temp
                   
                    temp = 예약일자(i)
                    예약일자(i) = 예약일자(j)
                    예약일자(j) = temp
                   
                    temp = 등록번호(i)
                    등록번호(i) = 등록번호(j)
                    등록번호(j) = temp
                End If
            Next j
        Next i
    Close #1

''출력파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 예약일자(num)
    Close #2
End Sub