항상 오류에 답변해주셔서 감사합니다.

이번문제에서

검산값이 656 850 114가 나와야 하는데

저는  656 850 55가 나옵니다.

ㅡㅜ 뭐가 잘못된걸까요?

Option Explicit

Sub main()
    ''필수변수입력
    Dim 인수1, 인수2, i, 버퍼 As Variant
    ''핵심변수입력
    Dim 나이, 정치관심도, 정치참여도, A후보호감도, B후보호감도, C후보호감도, D후보호감도, 합계, 평균, num As Variant
   
    ''인수선언
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''저장파일입력
    Open "C:\C_IT\data\abc0009.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
            ''변수저장
            나이 = Val(Mid(버퍼, 10, 2))
            정치참여도 = Val(Mid(버퍼, 22, 3))
            A후보호감도 = Val(Mid(버퍼, 14, 2))
            B후보호감도 = Val(Mid(버퍼, 16, 2))
            C후보호감도 = Val(Mid(버퍼, 18, 2))
            D후보호감도 = Val(Mid(버퍼, 20, 2))
               
                    ''표처리
                    Select Case 정치관심도
                        Case Is >= 60
                            정치관심도 = 30
                        Case Is >= 50
                            정치관심도 = 60
                        Case Is >= 40
                            정치관심도 = 70
                        Case Is >= 30
                            정치관심도 = 80
                        Case Is >= 20
                            정치관심도 = 30
                        Case Else     -> 하나 더 질문하자면 여기서 case else를 넣지 않고 윗부분 : case else

   정치관심도 30: 

에 이렇게 넣어도 값은 동일한가요?
                            정치관심도 = 0
                       
                    End Select
                   
                    ''계산짭
                    If B후보호감도 > A후보호감도 And _
                        B후보호감도 > C후보호감도 And _
                        B후보호감도 > D후보호감도 Then
                        num = num + 1
                        합계 = 합계 + 정치관심도 + 정치참여도
                    End If
            End If
           
        Next i
        ''평균구하기
        If num = 0 Then
            평균 = 0
        Else
            평균 = round(합계 / num)
        End If
       
   
    ''출력파일입력
    Open "C:\C_IT\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
End Sub