빠른 답변에 깊이 감사드리며...

결재금액 변수가 정의되지 않았다는 오류가 뜹니다.

분명 결제금액 변수 정의한 거 아닌가요?

다시 함 확인 부탁드립니다.

Sub main()

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

''''핵심 변수 선언
Dim 결제금액, 예약수량, 예약금액, 합계(1000), 결재금액배열(1000), 예약번호(1000), j, TEMP, NUM 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 i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
        
            '''' 변수 저장
            결재금액 = Val(Mid(버퍼, 48, 10))
            예약수량 = Val(Mid(버퍼, 18, 5))
            예약금액 = Val(Mid(버퍼, 23, 10))
       
            ''''배열변수 구하기
            If 결제금액 < 5000000 Then
                NUM = NUM + 1
                합계(NUM) = 예약수량 * 예약금액
                결재금액배열(NUM) = 결재금액
                예약번호(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\ans2.txt" For Output As #2
    Print #2, 인수1, 인수2, 결재금액배열(NUM)
Close #2

End Sub