Sub main()

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

''핵심 변수 선언
Dim 예약수량, 예약금액, 지불금액(1000), 예약일자(1000), 일련번호(1000), P, Temp, Num As Variant

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

''입력 파일 처리
Open "C:\C_it\data\san0105.txt" For Input As #1
    For K = 1 To 인수2
        Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수 저장
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''배열변수구하기
                If 예약수량 * 예약금액 >= 7000000 Then
                    Num = Num + 1
                    지불금액(1000) = Val(Mid(버퍼, 48, 10))
                    예약일자(1000) = Trim(Mid(버퍼, 8, 10))
                    일련번호(1000) = Trim(Mid(버퍼, 1, 7))
                End If
           
             End If
    Next K
           
            ''정렬
            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
                   
                    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, 예약일자(Num)
Close #2

End Sub

========================================================================
소스코딩이 틀렸나요?
텍스트 파일을 열면 "100 200         " 이렇게 나옵니다.
뭐가 잘못된 것일까요?