코딩해봤는데 어디가 틀렸는지..

답이 0이 나와요..

코딩 지적 좀 해주세요..

Option Explicit

Sub main()

''필수변수선언
 Dim 인수1, 인수2, i As Long
 Dim 버퍼 As String
 
 ''핵심변수선언
  Dim 국어점수, 점수포인트, 합계, num As Long
  Dim 담임코드, 지역코드 As String
 
 ''인수처리
  인수1 = Val(Left(Command, InStr(Command, " ")))
  인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리
 Open "C:\C_it\data\abc1115.txt" For Input As #1
 

  For i = 1 To 인수2
   Line Input #1, 버퍼
    If i >= 인수1 Then
   
    ''변수값저장
    국어점수 = Val(Mid(버퍼, 11, 3))
    담임코드 = Trim(Mid(버퍼, 29, 1))
    지역코드 = Trim(Mid(버퍼, 31, 1))
   
   
    ''표처리
    If 담임코드= "A" Then
       점수포인트 = 5
    ElseIf 담임코드 = "B" Then
       점수포인트 = 15
    ElseIf 담임코드 = "C" Then
       점수포인트 = 20
    End If
   
   ''건수구하기
   If 지역코드 = "B" Then
  
    If 합계 >= 50 Then
        합계 = 국어점수 + 점수포인트
       
        num = num + 1
    End If
   End If
  
       
 End If
   
 Next i
 
 
''출력파일입력
Open "C:\C_it\data\Ans4.txt" For Output As #2

   Print #2, 인수1, 인수2, num
  
  
Close #2

End Sub