못찾겠어요..ㅜ.ㅜ
결과값이 문자가 나와야하는데 숫자가 나오네요..

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\abc0105.txt" For Input As #1
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then

''변수저장
숙박요금 = Val(Mid(버퍼, 19, 6))
할인금액 = Val(Mid(버퍼, 30, 4))

num = num + 1
합계(num) = 숙박요금 - 할인금액
고객구분코드(num) = Trim(Mid(버퍼, 17, 2))
예약번호(num) = Val(Mid(버퍼, 1, 6))

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, 고객구분코드(3)
Close #2

End Sub