특강 2-2 온라인게임이용자관리 질문입니다.(3번문제)

저는 아래 보시다시피, 표처리를 선생님과 다르게 했는데요, 결과값이 안나오더라구요.

저처럼 하면 안되는 건가요? 아님 제가 소스입력하는 과정에서 실수가 있어서 그런가요?

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(버퍼, 29, 1))
            경험치 = Val(Mid(버퍼, 15, 3))
            체력 = Val(Mid(버퍼, 18, 3))
            지력 = Val(Mid(버퍼, 21, 3))
            마법력 = Val(Mid(버퍼, 24, 3))
                ''표처리
                Select Case 아이템코드
                    Case "A"
                        체력증가 = 10
                    Case "B"
                        지력증가 = 10
                    Case "C"
                        마법력증가 = 10
                    Case "D"
                        체력증가 = 5
                        지력증가 = 5
                        마법력증가 = 5
                End Select
               
                ''합계
                If 캐릭터타입 = "W" Then
                    num = num + 1
                    합계 = (경험치 + (체력 + 체력증가) * 2 + (지력 + 지력증가) * 2 + (마법력 + 마법력증가) * 3) + 합계
                End If
               
            End If
        Next i
        ''평균구하기
        If num = 0 Then
            평균 = 0
        Else
            평균 = Round(합계 / num)
       End If
    Close #1
    ''출력자료처리
    Open "C:\C_IT\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
End Sub