답이 자꾸 잘못나오네요

제가 한 코딩으로는 오답만 나오게 되나요?

뭐가 틀린건지...

Option Explicit

Sub main()

    ''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 아이템코드, 캐릭터타입, 캐릭터점수, 경험치, 체력증가, 지력증가, 마법력증가, 체력, 지력, 마법력, 평균, 합계, num As Variant
   
    ''인수저장
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc0012.txt" For Input As #1
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수저장
                아이템코드 = Trim(Mid(버퍼, 30, 1))
                경험치 = Val(Mid(버퍼, 15, 3))
                체력 = Val(Mid(버퍼, 18, 3))
                지력 = Val(Mid(버퍼, 21, 3))
                마법력 = Val(Mid(버퍼, 24, 3))
                캐릭터타입 = Trim(Mid(버퍼, 29, 1))
                               
                ''표처리
                Select Case 아이템코드
                    Case "A"
                        체력증가 = 10
                    Case "B"
                        지력증가 = 10
                    Case "C"
                        마법력증가 = 10
                    Case "D"
                        체력증가 = 5
                        지력증가 = 5
                        마법력증가 = 5
                End Select
                                       
                ''합계구하기
                    If 캐릭터타입 = "W" Then
                        캐릭터점수 = 경험치 + (체력 + 체력증가) * 2 + (지력 + 지력증가) * 2 + (마법력 + 마법력증가) * 3
                        num = num + 1
                        합계 = 합계 + 캐릭터점수
                    End If
              End If
                   
        Next i
       
        ''평균구하기
        If num = 0 Then
            평균 = 0
        Else
            평균 = Round(합계 / num)
        End If
       
    Close #1
   
    ''출력파일처리
    Open "c:\c_it\data\ansqq3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2

End Sub