Sub main()

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

''''''''핵심변수선언
Dim 할인금액, 투숙기간, 합계(1000), j, Num, Temp As Variant

''''''''인수처리

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

''''''''입력파일처리

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

For i = 1 To 인수2
        Line Input #1, 버퍼
       
        If i >= 인수1 Then
       
        ''''''''변수저장
       
        할인금액 = Val(Mid(버퍼, 30, 4))
        투숙기간 = Val(Mid(버퍼, 15, 2))
       
       
       
        ''''''''합계
        Num = Num + 1
        합계(Num) = 할인금액 * 투숙기간
        End If
       
 Next i
               
        ''''''''정렬(오름차순)
        For i = 1 To Num
            For j = i To Num
                If 합계(i) > 합계(j) Then
                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, 합계(8)
Close #2

End Sub

_________________________
아랫분은 파일이름이 같아서 그런거 같은데

이건 다 맞게 한거 같은데 line input에서 디버깅 이 자꾸걸려요...

"파일모드가 잘못돼었습니다" ---뭐가 잘못된건지

빠른 답변 부탁드립니다