답이 다르네요....

코딩도 여러번 확인했는데 왜 그렇죠??

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\san0105.txt" For Input As #1
   
    For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
           
           
            ''''변수저장
            특급여부 = Trim(Mid(버퍼, 72, 1))
            예약수량 = Val(Mid(버퍼, 18, 5))
            배달거리 = Val(Mid(버퍼, 103, 10))
           
            
            ''''표처리
           
            Select Case 특급여부
                Case "A"
                    배달비용 = 배달거리 * 10000 + 50000
                   
                Case " B"
                    배달비용 = 배달거리 * 8000 + 30000
                Case Else
                    배달비용 = 배달거리 * 7000 + 20000
                End Select
               
            If 예약수량 >= 80 Then
                합계 = 합계 + 배달비용
              
            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