1번 문제..제가 소스코딩 한 것인데요.. 제가 보기엔 잘못이 없는 거 같은데.. 답이 안 나와요~ 왜 그럴까요??

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심 변수 선언
Dim 운행거리, 거래포인트, 단가, 합계(1000), P, Temp, Num As Variant

''입력 파일 처리
Open "C:\C_it\data\abc0107.txt" For Input As #1

    For k = 1 To 인수2
        Line Input #1, 버퍼
           
            If k >= 인수1 Then
               
                ''변수 저장
                운행거리 = Val(Mid(버퍼, 27, 6))
                거래포인트 = Val(Mid(버퍼, 23, 4))
                단가 = Val(Mid(버퍼, 14, 4))
               
                ''합계 구하기
                If 운행거리 >= 40000 Then
                    Num = Num + 1
                    합계(Num) = 거래포인트 + 단가
                   
                End If
               
            End If
    Next k
            ''정렬
            For k = 1 To Num
                For P = k To Num
                       
                    If 합계(k) < 합계(P) Then
                   
                            Temp = 합계(k)
                            합계(k) = 합계(P)
                            합계(P) = Temp
                    End If
                   
                   
                Next P
            Next k
           
Close #1

''출력 파일 처리
Open "C:\C_it\data\ans1.txt" For Output As #2
   
    Print #2, 인수1, 인수2, 합계(4)
   
Close #2

End Sub