If 사원등급부분에 자꾸 런타임 오류 13이 나요..
빨리좀 답해주세요..
이제 곧 셤보러가야하는데..ㅜ.ㅜ


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:\c_it\data\abc2125.txt" For Input As #1

For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

사원등급 = Trim(Mid(버퍼, 23, 1))
거래등급 = Trim(Mid(버퍼, 13, 1))
이익포인트 = Val(Mid(버퍼, 24, 3))

Select Case 거래등급
Case "A"
할인포인트 = 5
Case "B"
할인포인트 = 15
Case "C"
할인포인트 = 20

End Select

If 사원등급 = "A" And "B" Then

합계 = 합계 + 이익포인트 + 할인포인트

End If

End If



Next i


Close #1


Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계




Close #2


End Sub