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\ABC06.TXT" For Input As #1
        
         For I = 1 To 인수2
            Line Input #1, 버퍼
            If I >= 인수1 Then
               
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''변수 저장
                예약금액 = Val(Mid(버퍼, 23, 10))
               
               
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''표 처리하기
                Select Case 예약금액
                Case Is >= 7001---------------------------> 이부분이 70001
                    사은포인트 = 2500 + 예약금액 * 4
                Case Is >= 6001--------------------------->60001 이 맞는거 같은데요~
                    사은포인트 = 2000 + 예약금액 * 3
                Case Else
                    사은포인트 = 1500 + 예약금액 * 2
               
                End Select
               
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''합계
                If 예약금액 >= 5000 And 예약금액 < 8000 Then<======50000, 80000
                   합계 = 합계 + 사은포인트
                End If
               
               
            End If
        Next I
       
       
               
    Close #1
   
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''출력 파일 정리
    Open "c:\c_it\data\ans4.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub

머가 문제죠?