메모장에 답이 안떠요ㅠ.ㅠ 아침부터 지우고 다시또하고 계속하는데도 안나오네요~도와주세요~

Option Explicit

Sub main()
    ''''핵심 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
    
    ''''필수 변수 선언
    Dim 승객만족도, 좌석코드, 월이용횟수, 열차요금, 합계(1000), 고객번호(1000), j, Num, Temp As Variant
    
    ''''인수 저장
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
    
    ''''입력 파일 처리
    Open "c:\c_it\data\abc0105.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
            ''''''''변수 저장
            승객만족도 = Val(Mid(버퍼, 16, 2))
            좌석코드 = Trim(Mid(버퍼, 8, 2))
            월이용횟수 = Val(Mid(버퍼, 32, 2))
            열차요금 = Val(Mid(버퍼, 10, 6))
           
            If 승객만족도 Mod 2 = 0 And 좌석코드 = "HE" Then
                Num = Num + 1
                합계(Num) = 월이용횟수 + (열차요금 * 0.4)
                고객번호(Num) = Val(Mid(버퍼, 1, 5))
               
            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
            End If
           
              
           
            Next j
           
        Next i
       
       
    Close #1
    
    
    ''''출력 파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 고객번호(3)
    Close #2

End Sub