문제 1번인데요....인수값을 지정했는데도 오류가 발생합니다...어떻게 해야 하나요..제 컴퓨터가 이상한건지 소스가 이상한건지 ..모르겠네요....함 봐주세요....

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

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

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

''필수파일처리
Open "c:\c_it\data\abc0105.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:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 최대값
Close #2
End Sub