문제번호 2번문제요..

가장작은값의 체육점수를 출력하라를..코딩을 잘 못하겠습니다.

일단 제가 한것까지..붙여넣기해불께요.

가르쳐 주세요...

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\abc09.txt" For Input As #1
        ''최대값초기화
        최대학번 = 0
        ''최소값초기화
        최소값 = 99999999
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                생물점수 = Val(Mid(버퍼, 11, 3))
                성취도 = Trim(Mid(버퍼, 27, 1))
                총점 = Val(Mid(버퍼, 29, 3))
                지리점수 = Val(Mid(버퍼, 8, 3))
                학번 = Val(Mid(버퍼, 1, 6))
                체육점수 = Val(Mid(버퍼, 14, 3))
                ''최소값구하기
                If 생물점수 < 40 And 성취도 = "C" Then
                    If 최소값 > ((총점 - 지리점수) / 4) Or _
                        (최소값 = ((총점 - 지리점수) / 4) And 최대학번 > 학번) Then
                        최소값 = ((총점 - 지리점수) / 4)
                    End If
                   
                End If
            End If
        Next i
      
       
        ''반올림처리
        최소값 = Round(최소값)
    Close #1
  
    ''출력파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 체육점수
    Close #2
End Sub