계속 결과가 다르게 나옵니다.
소스코딩 좀 봐주세요.

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 "C"
                            배달비용 = 배달거리 * 7000 + 20000
                    End Select
                End If
        Next K
       
        ''합계구하기
        If 예약수량 >= 80 Then
            합계 = 합계 + 배달비용
        End If
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 합계
       
    Close #2
   
End Sub

그리고 표처리 부분에서 기타 부분은 왜 case else 로 처리하지 않고

case"c" 로 처리하는지요?