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\A503192.txt" For Input As #1

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

''변수저장
지불코드 = Trim(Mid(버퍼, 33, 2))
극장코드 = Trim(Mid(버퍼, 6, 2))
적립금 = Val(Mid(버퍼, 28, 5))
If 극장코드 = "WQ" Or 지불코드 = "CG" Then
합계 = 합계 + 적립금

End If

End If
Next i

Close #1
''출력
Open "C:\C_iT\Data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2
End Sub
합계가나오지 않네요 어디에 틀렸는지 알려주세요