3번

Select Case 서적분류코드
                    Case "A1"
                        추가금액 = 560
                    Case "A2"
                        추가금액 = 720
                    Case "B2"
                        추가금액 = 620
                    Case "B3"
                        추가금액 = 510
                    Case "C3"
                        추가금액 = 430
                    Case "C4"
                        추가금액 = 790
                    Case "D4"
                        추가금액 = 150
                    Case "D5"
                        추가금액 = 210
End Select
               
=>Case 이후에 값이 다 틀렸습니다.

4번

Select Case 거래처신용도
                    Case "G"
                        할인금액 = 360
                    Case "B"
                        할인금액 = 450
                    Case "D"
                        할인금액 = 590
                    Case "K"  ======> 공백을 포함하고 있었습니다.
                        할인금액 = 810
                End Select
               
                ''결과값 구하기
                If 단가 >= 290 Then
                   합계 = 합계 + 월매출액 - 할인금액  =====> 뺄셈을 덧셈으로 코딩하셨습니다.
                End If