어떤 인수를 넣어도 같은 값이 나옵니다. ㅠㅠ

1  10  8048           ----> 이런 식으로 틀린 곳 찾아주세요!
 538  752  8048

Option Explicit

Sub main()

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

''핵심변수선언
Dim 할인금액, 투숙기간, 최소값  As Variant

''인수처리

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

''입력파일처리

Open "c:\c_it\data\abc0001.txt" For Input As #1

Line Input #1, 버퍼

최소값 = 999999999

For i = 1 To 인수2

 If i >= 인수1 Then
 
 
''변수저장

할인금액 = Val(Mid(버퍼, 30, 4))
투숙기간 = Val(Mid(버퍼, 15, 2))

If 최소값 > 할인금액 * 투숙기간 Then
  최소값 = 할인금액 * 투숙기간

End If

End If

Next i

''정렬

''출력파일처리

Open "c:\c_it\data\ans2.txt" For Output As #2

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

close#2

End Sub