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:\abc\abc0159.txt" For Input As #1
      
        ''공식
        For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
  
       
        ''변수저장
        담임코드 = Trim(Mid(버퍼, 29, 1))
        국어점수 = Val(Mid(버퍼, 11, 3))
        학번 = Val(Mid(버퍼, 1, 6))
             If 담임코드 = "C" Then
        If 최대값 < 국어점수 Or 최대값 = 국어점수 And 학번 > 최소학번 Then
        최대값 = 국어점수
        학번 = 최소학번
       
        End If
        End If
       
       
       
       
       
       
        End If
        Next i
       
       
       
       
   
   
   
   
   
   
    Close #1

Open "c:\abc\abcd.txt" For Output As #2
Print #2, 인수1, 인수2, 최소학번
Close #2

End Sub

최소학번이안나오네요 어디서 틀린지좀봐주세요