영진 21 병원환자관리(페이지6-78) 1번문제입니다..

바쁘시지만,,좀 봐주세요 ^^

 ''필수변수선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심변수선언
    Dim 입원실, 입원료(1000), 환자등록번호(1000), j, Num, Temp As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc21.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                입원실 = Trim(Mid(버퍼, 30, 9))
               
               
                ''배열변수구하기
                If 입원실 = "특실" Then
                    Num = Num + 1
                    입원료(Num) = Val(Mid(버퍼, 41, 4))
                    환자등록번호(Num) = Trim(Mid(버퍼, 1, 9))
                End If
               
            End If
        Next i
        ''배열(오름)
        For i = 1 To Num
            For j = i To Num
                If 입원료(i) > 입원료(j) Or _
                    (입원료(i) = 입원료(j) And 환자등록번호(i) < 환자등록번호(j)) Then
                        Temp = 입원료(i)
                        입원료(i) = 입원료(j)
                        입원료(j) = Temp
                       
                        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, 환자등록번호(3)
    Close #2