제 코딩을 좀 봐 주십시오.

Sub main()
   
    ''필수 변수 선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
   
    ''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, 최대값  As Variant
   
   
    ''인수 처리
    인수1 = Val(Left(Command, lnStr(Command, " ")))
    인수2 = Val(Mid(Command, lnStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\abc0001.txt" For Input As #1
   
    ''최대값 초기화
    최대값 = 0
   
        For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
   
   
    ''변수 저장
    단가 = Val(Mid(버퍼, 12, 3))
   
    이익포인트 = Val(Mid(버퍼, 20, 3))
   
    거래포인트 = Val(Mid(버퍼, 27, 3))
   
    ''최대값 구하기
    If 단가 >= 50 Then
   
    If 최대값 < 이익포인트 + 거래포인트 Then
    최대값 = 이익포인트 + 거래포인트
   
            End If
   
         End If
    End If
   
    Next K
   
   
    Close #1
   
    ''출력 파일 처리
   
    Open "c:\c_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 최대값
       
        Close #2

End Sub

이렇게 하고 확인 버튼을 누르면 ''sub 또는 Funtion이 정의되지 않았다고 나옵니다.''
자주하는 질문에 가보니 변수 선언과 저장이 틀릴 때 나오는 오류라고 하는데, 선생님께서 해주신 그대로 코딩을 했는데도 왜 자꾸 오류가 뜰까요?

확인 좀 부탁드립니다.