할인금액이 4500 이상이거나 고객 구분코드가 YE인 자료 중에서 (숙박요금 - 할인금액)값 중 가장 작은값을 출력하고 만약 동일 값 발생시는 한번만 출력하시오.(20점)
코딩 했는데 답이 틀리게 나오네요..
틀린곳 좀 봐주세요..ㅠ_ㅠ
그리구 선생님..원래 뒤로 갈수록 점점 문제가 어려워지는건가요??
낼 시험인데 중급 나올까봐 너무 불안해요 ㅠ_ㅠ 

Sub main()

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

''핵심 변수 선언
Dim 할인금액, 고객구분코드, 숙박요금, 최소값 As Variant

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

''입력 파일 처리
Open "c:\c_it\data\s10261.txt" For Input As #1

''최소값 초기화
최소값 = 999999999

For K = 1 To 인수2
Line Input #1, 버퍼
If K >= 인수1 Then

''변수 저장
할인금액 = Val(Mid(버퍼, 30, 4))
고객구분코드 = Trim(Mid(버퍼, 17, 2))
숙박요금 = Val(Mid(버퍼, 19, 6))

''최소값 구하기
If 할인금액 >= 4500 And 고객구분코드 = "YE" Then
If 최소값 > 숙박요금 - 할인금액 Then
최소값 = 숙박요금 - 할인금액
End If
End If

End If
Next K

Close #1

''출력 파일 처리
Open "c:\c_it\data\Ans2.txt" For Output As #2

Print #2, 인수1, 인수2, 최소값

Close #2

End Sub