FAQ를 참고해서 고쳐보려고 했는데

어디가 틀렸는지 못 찾겠어요!! 도와주세요.

Option Explicit

Sub main()

''''필수변수선언

Dim 인수1, 인수2, i, 버퍼  As Variant

''''핵심변수선언

Dim 예약실구분코드, 투숙기간, 누적점수, 할인금액, num, 합계(1000), 숙박요금(1000), 예약번호(1000), temp, j As Variant

''''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''''입력파일처리

Open "c:\c_it\data\abc0002.txt" For Input As #1

For i = 1 To 인수2

 Line Input #1, 버퍼
 
 If i >= 인수1 Then
 
    ''''변수저장
   
     예약실구분코드 = Trim(Mid(버퍼, 38, 2))
     투숙기간 = Val(Mid(15, 2))
     누적점수 = Val(Mid(40, 5))
     할인금액 = Val(Mid(30, 4))
    
    
     ''''배열변수구하기
    
     If 예약실구분코드 = "WA" Or 투숙기간 <= 13 Then
        num = num + 1
        합계(num) = 누적점수 + 할인금액
        숙박요금(num) = Val(Mid(19, 6))
        예약번호(num) = Val(Mid(1, 6))
       
        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, 숙박요금(4)
 
 
 
 
 
 Close #2
 
 
 
End Sub