공부하다 궁금한 점이 있어서 올려봅니다..

03년 4월 28일 기사 오전시험 중 1번 문제입니다..
권우석 선생님이 올려주신 소스를 보면서 해봤는데 계속해서 오류가 발생하네요..(런타임 오류 62번째)

선생님이 올려주신 소스랑 아무리 비교해봐도 똑같아 보이는데..
선생님 소스로 돌리면 답이 떡~하니 나오는데도
제가 해놓은 소스로 하면 꼭 안되네요 ㅠ.ㅠ

오류가 걸리는 부분이 (Line Input #1, 버퍼) <-- 요부분인데요..
기본틀에 있는거라 틀릴 이유도 없구..
선생님 소스랑 비교해도 철자하나 안틀리구 똑같은데..
왜 선생님껀 되면서 제껀 안되는지.. 미치겠슴당 ㅠ_ㅠ

어케 바쁘시더라도 한번만 봐주세요.. 몇시간째 붙들고 있는건지 몰겠어요.. ㅠ_ㅠ

아래는 선생님꺼 컨닝하면서 풀어본 소스..;;


Option Explicit

Sub main()

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

''핵심 변수 선언
Dim 예약일자, 예약수량, 예약금액, 최대값 As Variant

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

''입력파일처리
Open "C:WC_itWdataWabc0001.txt" For Input As #1

''최대값 초기화
최대값 = 0

For i = 1 To 인수2
Line Input #1, 버퍼 <ㅡ 요부분.. 오류발생부분..;
If i >= 인수1 Then

''변수저장
예약일자 = Trim(Mid(버퍼, 8, 4))
예약수량 = Val(Mid(버퍼, 18, 5))
예약금액 = Val(Mid(버퍼, 23, 10))

If 예약일자 = "1999" Then
If 최대값 <= 예약수량 * 예약금액 Then
최대값 = 예약수량 * 예약금액
End If
End If

End If
Next i

Close #1

''출력파일처리
Open "C:WC_itWdataWans1.txt" For Output As #2
Print #2, 인수1, 인수2, 최대값
Close #2

End Sub