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\abc0106.txt" For Input As #1
       
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
               
                ''변수 저장
                거래처신용도 = Trim(Mid(버퍼, 20, 1))
                서적분류코드 = Trim(Mid(버퍼, 5, 2))
                월매출액 = Val(Mid(버퍼, 26, 5))
               
                ''표처리
                Select Case 거래처신용도
                    Case "G"
                        할인금액 = 2500
                    Case "B"
                        할인금액 = 6200
                    Case "D"
                        할인금액 = 4500
                    Case "K"
                        할인금액 = 7200
                End Select
               
                ''합계 구하기
                If 서적분류코드 = "B3" 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

일케 코딩을 했는데요..
뭐가 잘못된거 있나요?? ㅠ_ㅠ
1 2 3 4 번 다 풀고 답 맞춰보려구 p1, p2 이런식으로 다 저장 해놓구
위에 4번 문제 까지 다 풀구 Data 파일을 보니까
모듈이랑 프로젝트 파일은 있는데요
결과값이 없어요 100 200 2804 이런식으로 나오는거요..ㅠ_ㅠ
잘못했거나 빼먹은 부문이 있다면 좀 알려주세요 흑흑