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

For i = 인수1 To 2
    Line Input #1, 버퍼
    If i >= 인수1 Then
   
   
    ''변수저장
    거래코드 = Trim(Mid(버퍼, 19, 1))
    제조구분 = Trim(Mid(버퍼, 7, 1))
    매출액 = Val(Mid(버퍼, 26, 3))
   
    ''표처리
    Select Case 거래코드
    Case "A"
        추가포인트 = 5
    Case "B"
        추가포인트 = 10
    Case "C"
        추가포인트 = 15
   
    ''합계구하기
    If 제조구분 = "B" Then
    합계 = 합계 + 매출액 + 추가포인트
    End If
   
 End If
 Next i
       
        
Close #1
 
 ''출력파일처리
 Open "c:\c_it\data\ans3.txt" For Input As #2
 Print #2, 인수1, 인수2, 합계
 Close #2

End Sub

노란색이요..블록 if가 없는 end if라고 컴파일 오류가 계속 뜹니다.

진짜 속상해요..컴맹이라..열심해해도 자꾸 오류가 생겨요..

답변 부탁드려요..