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\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

제 소스입니다..확인좀 해주세요..급해요..ㅜㅜ

자료실에 두신 입력파일을 컴퓨터 안의 data폴더로 어떻게 다운을 받아야 하나요??

아무래도 입력파일을 잘못 저장한거 같은데요..