강의는 잘들었구요..이제 혼자 해보고있는데.강의들을때 3번이 제일

어렵다고 하셨는데.. 저혼자 한번 프로그램을 짜보았는데..

Sub main()
    ''필수 인수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 인수 선언
    Dim 배달여부, 예약수량, 예약금액, 예약번호(1000), 합계(1000), j, temp, Num As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''파일열기처리
    Open "c:\c_it\data\abc03.txt" For Input As #1
   
    For i = 1 To 인수2
     Line Input #1, 버퍼
     If i >= 인수1 Then
    
     ''변수처리
    예약수량 = Val(Mid(버퍼, 18, 5))
    예약금액 = Val(Mid(버퍼, 23, 10))
    배달여부 = Trim(Mid(버퍼, 93, 2))
    ''합계구하기
    If 배달여부 <> "OK" And 배달여부 <> "NO" Then
        Num = Num + 1
        합계(Num) = 예약수량 * 예약금액
   
    예약번호(Num) = Trim(Mid(버퍼, 1, 7))
  
    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\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 예약번호(Num)
    Close #2
End Sub

이렇게 해도 책에있는 답(6가지)과 일치하거든요?

이렇게 하면 무슨 문제가 있는건가요..

만약 강의에서 들은것과 이방법 둘다 문제가 없다면

이방법으로 하고싶어서요..