특강 1의 문제 1 구인정보관리 입니다..

답이 나오지 않네요

Option Explicit

Sub main()

''필수변수선언

Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심변수선언

Dim 지역코드, 연봉, 이적료, 합계(1000), j, Temp, Num As Variant

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

''입력파일처리
Open "C:\C_iT\Data\abc0020.txt" For Input As #1

For i = 1 To 인수2
    Line Input #1, 버퍼
        If i >= 인수1 Then
       
''변수저장
지역코드 = Trim(Mid(버퍼, 6, 1))
연봉 = Val(Mid(버퍼, 14, 5))
지역코드 = Val(Mid(버퍼, 19, 5))

''배열함수처리
If 지역코드 = "S" Then
    Num = Num + 1
    합계(Num) = 연봉 + 이적료
End If

       End If
Next i
       

''정렬알고리즘(오름차순)
For i = 1 To Num
    For j = i To Num
         If 합계(i) > 합계(j) Then
           
            Temp = 합계(i)
            합계(i) = 합계(j)
            합계(j) = Temp
           
        End If
    Next j
Next i

Close #1
''출력파일처리
Open "C:\C_iT\Data\ans1.txt" For Output As #2

    Print #2, 인수1, 인수2, 합계(5)
   
Close #2
End Sub