Sub main()
''''필수변수선언
Dim 인수1, 인수2, K, 버퍼 As Variant
''''핵심변수선언
Dim 서적분류코드, 추가금액, 출판년월, 월매출액, 합계 As Variant
''''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''''입력파일처리
Open "c:\c_it\data\abc02.txt" For Input As #1
      
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
               ''''변수저장
               서적분류코드 = Trim(Mid(버퍼, 5, 2))
               출판년월 = Val(Mid(버퍼, 7, 4))
               월매출액 = Val(Mid(버퍼, 26, 5))
              ''''표처리
               Select Case 서적분류코드
                      Case "A1"
                          추가금액 = 560
                      Case "A2"
                          추가금액 = 720
                      Case "B2"
                          추가금액 = 620
                      Case "B3"
                          추가금액 = 510
                      Case "C3"
                          추가금액 = 430
                      Case "C4"
                         추가금액 = 790
                      Case "D4"
                         추가금액 = 150
                      Case "D5"
                         추가금액 = 210
               End Select
             ''''합계구하기
               If 출판년월 < 2000 Then
                  합계 = 합계 + 월매출액 + 추가금액
               End If
            End If
        Next K
       
Close #1
''''출력파일처리
Open "c:\c_it\data\ans7.txt" For Output As #1

    Print #2, 인수1, 인수2, 합계
    
Close #2
         
  End Sub

선생님... 강의 듣고 그대로 따라 했는데  Print #2, 인수1, 인수2, 합계 에서 오류 메세지가 뜹니다..
파일또는 숫자입력 이 잘못되었다고 합니다..
아무래 쳐다봐도 잘못된것이 없는것 같은데.. 표처리 문제 풀때 이런 오류가 자주떠요....