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(버퍼, 43, 7))
                현재가 = Val(Mid(버퍼, 6, 6))
                전일비 = Val(Mid(버퍼, 29, 6))
                종목별예측률 = 전일비 / 현재가
               
                ''표구하기
                 Select Case 업종코드
                    Case "A1"
                    업종별예측률 = 0.02
                    Case "A2"
                    업종별예측률 = 0.04
                     Case "A3"
                    업종별예측률 = -0.08
                     Case "A4"
                    업종별예측률 = -0.01
                 
                End Select
               
                ''합계구하기
                If 거래량 >= 500000 Then
                    num = num + 1
                    예측률 = (업종별예측률 + 종목별예측률) / 2
                   예측률 = Int(예측률 * 100) / 100
                   
                    익일예측주가 = 현재가 * (1 + 예측률)
                    익일예측주가 = Int(익일예측주가 / 10) * 10
                    합계 = 합계 + 익일예측주가
                End If
           End If
       Next i
                ''평균구하기
                평균 = Int(합계 / num / 10) * 10
    Close #1
    ''출력파일처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 평균
    Close #2
End Sub

여기까지는 했는데 결과값이 틀리네요 ㅠ.ㅠ

어디가 틀린거죠??부탁드립니다 ㅠ.ㅠ