결과값에 아무것도 안나옵니다

Sub main()

    ''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 누적점수, 고객구분코드, 예약방법코드, 숙박요금, 추가요금, 합계 As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc0001.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
               
                ''변수저장하기
                고객구분코드 = Trim(Mid(버퍼, 17, 2))
                예약방법코드 = Trim(Mid(버퍼, 36, 2))
                숙박요금 = Val(Mid(버퍼, 19, 6))
                누적점수 = Val(Mid(버퍼, 40, 5))
               
                ''표처리(예약방법코드)
               
                Select Case 예약방법코드
                    Case "LG"
                        추가요금 = 26800
                    Case "TE"
                        추가요금 = 35670
                    Case "FA"
                        추가요금 = 14200
                    Case "HU"
                        추가요금 = 21240
                End Select
               
                ''합계구하기
                If 누적점수 >= 5340 And 고객구분코드 = "YE" Then
                    합계 = 합계 + 숙박요금 + 추가요금
                End If
               
               
               
               
            End If
           
        Next i
       
    Close #1
   
    ''출력파일
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
   
End Sub