몇일전 100 200 인수값을 준후 출력파일이 올바르게 나오는 소스가

개인 수검프로그램에서 실행이나 감독관에게 전송시 런타임 13오류 발생으로

프로그램 강제 종료를 해야했던 질문 소스 파일 올립니다

개인수검프로그램 모의고사3번 문제유형에서 2번입니다.

Option Explicit

Sub Main()
    ''필수변수선언
    Dim 인수1, 인수2, 버퍼, K As Variant
    ''핵심변수선언
    Dim 결제금액, 예약수량, 예약금액, 합계(1000), 마지막결제금액(1000), 예약번호(1000), Temp, Num, P As Variant
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''입력파일처리
    Open "c:\c_it\data\abc03.txt" For Input As #1
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
                ''변수저장
                결제금액 = Val(Mid(버퍼, 48, 10))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
                ''배열변수
                If 결제금액 < 5000000 Then
                    Num = Num + 1
                    합계(Num) = 예약수량 * 예약금액
                    예약번호(Num) = Trim(Mid(버퍼, 1, 7))
                    마지막결제금액(Num) = 결제금액
                   
                End If
            End If
        Next K
        ''합계 오름차순 정렬 ( 합계 같은시 예약번호 오름차순정렬)
        For K = 1 To Num
            For P = K To Num
                If 합계(K) > 합계(P) Or (합계(K) = 합계(P) And 예약번호(K) > 예약번호(P)) Then
                   
                    Temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = Temp
                   
                    Temp = 마지막결제금액(K)
                    마지막결제금액(K) = 마지막결제금액(P)
                    마지막결제금액(P) = Temp
                   
                    Temp = 예약번호(K)
                    예약번호(K) = 예약번호(P)
                    예약번호(P) = Temp
                   
                End If
            Next P
        Next K
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 마지막결제금액(Num)
    Close #2
End Sub