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

최소값 = 99999

''공식
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''변수저장
담임코드 = Trim(Mid(버퍼, 30, 1))
국어점수 = Val(Mid(버퍼, 14, 3))
학번 = Val(Mid(버퍼, 1, 6))

If 담임코드 = "c" Then

If 최소값 > 국어점수 Then
최소값 = 국어점수
End If

End If

End If

Next i

Close #1

''출력
Open "c:\abc\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 최소값
Close #2
End Sub

출력하니깐 최소값나와야할부분이 나오지않네요,,,