for 컨트롤 변수를 이미 사용중입니다 라고 나와있는데 뭐가 틀렸나요?
정렬밑에 for K=1 거기가 틀렸다는데요 선생님 코딩이랑 똑같은거같은데...



Sub Main()
''''필수 변수 선언
Dim 인수1, 인수2, K, 버퍼 As Variant

''''핵심 변수 선언
Dim 통학코드, 영어점수, 수학점수, 합계(1000), P, 학번(1000), temp, num As Variant

''''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''''입력 파일 처리
Open "c:\c_it\data\res0105.txt" For Input As #1
    For K = 1 To 인수2
    Line Input #1, 버퍼
    If K >= 인수1 Then
   
        ''''변수 저장
        통학코드 = Trim(Mid(버퍼, 16, 1))
        영어점수 = Val(Mid(버퍼, 20, 3))
        수학점수 = Val(Mid(버퍼, 24, 3))
      
       
        ''''배열변수 구하기
        If 통학코드 = "A" Or 통학코드 = "B" Then
        num = num + 1
        합계(num) = 영어점수 + 수학점수
        학번(num) = Val(Mid(버퍼, 1, 6))
      
       ''''정렬(합계 내림차순 (합계 같음 & 학번 오름차순)
       For K = 1 To num
            For P = K To num
                If 합계(K) < 합계(P) Or (합계(K) = 합계(P) And 학번(K) > 학번(P)) Then
                   
                    temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = temp
                   
                    temp = 학번(K)
                    학번(K) = 학번(P)
                    학번(P) = temp
                                       
                   
                End If
            Next P
        Next K
   
Close #1

''''출력 파일 처리
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 학번(5)

Close #2

End Sub