눈씻고 찾아봐도 쏘스 틀린걸 못찾겠어요.

결과값이 안나옵니다.

좀 도와주세요

ㅡㅜ

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\abc0015.txt" For Input As #1
   
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
                ''변수저장
                회원수 = Val(Mid(버퍼, 21, 6))
                사이트구분 = Trim(Mid(버퍼, 10, 1))
               
                할당용량 = Val(Mid(버퍼, 29, 4))
                회선수 = Val(Mid(버퍼, 19, 2))
                ''표처리
                    Select Case 사이트구분
                        Case "A"
                            사용료 = 15000
                        Case "B"
                            사용료 = 10000
                        Case "C"
                            사용료 = 7500
                        Case "D"
                            사용료 = 5000
                    End Select
                ''합계
                If 회원수 >= 3000 Then
                    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\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
End Sub