결과값이 0이네요..ㅡ.ㅜ

어디가 잘못된 건가요?

이정도면은 난이도가 중급인거죠?

--------------------------------------------------------------

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\abc12.txt" For Input As #1
 
  For i = 1 To 인수2
  Line Input #1, 버퍼
   If i >= 인수1 Then
   
    ''변수정의
    
     업종코드 = Trim(Mid(버퍼, 35, 2))
     전일비 = Val(Mid(버퍼, 27, 6))
     현재가 = Val(Mid(버퍼, 6, 6))
     거래량 = Val(Mid(버퍼, 43, 7))
      
       ''표그리기
       Select Case 업종코드
              Case "A1"
                업종별예측율 = "0.02"
              Case "A2"
                업종별예측율 = "0.04"
              Case "A3"
                업종별예측율 = "-0.08"
              Case "A4"
                업종별예측율 = "-0.01"
        End Select
       
       If 거래량 >= 500000 And _
       종목별예측율 = 전일비 / 현재가 And _
       예측율 = (업종별예측율 + 종목별예측율) / 2 And _
       익일예측주가 = 현재가 * (1 + 예측율) Then
      
        Num = Num + 1
       합계 = 합계 + Int(익일예측주가)
          
       End If
   
     End If
  
  Next i
        
         ''평균구하기
         If Num = 0 Then
            평균 = 0
           
         Else
            평균 = Round(합계 / Num, 2)
         End If
        
Close #1

''출력파일
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 평균
Close #2
End Sub