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\san0105.txt" For Input As #1
  
    For k = 1 To 인수2
        Line Input #1, 버퍼
            If k >= 인수1 Then
           
          
''변수 저장
특급여부 = Trim(Mid(버퍼, 72, 1))
배달거리 = Val(Mid(버퍼, 103, 10))
예약수량 = Val(Mid(버퍼, 18, 5))

Select Case 특급여부

Case "A"
 배달비용 = 배달거리 * 10000 + 50000
Case "B"
 배달비용 = 배달거리 * 8000 + 30000
Case "기타"
 배달비용 = 배달거리 * 7000 + 20000

End Select

''합계
If 예약수량 >= 80 Then
합계 = 합계 + 배달비용

End If

    End If

        Next k

   
    Close #1
   
''출력 파일 처리

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

Print #2, 인수1, 인수2, 합계
Close #2

End Sub

어디가 틀렸는지 모르겠어요..... 흑.