오늘 산업기사 오후꺼 했는데 둘다 답이 0도 안 나오네요
Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 숙박요금, 투숙기간, 할인금액, 예약실구문코드, 합계 As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일 처리
    Open "c:\c_it\data\abc0105.txt" For Input As #1
       
        For k = 1 To 인수2
            Line Input #1, 버퍼
                If k >= 인수1 Then
                ''변수저장
                숙박요금 = Val(Mid(버퍼, 19, 6))
                투숙기간 = Val(Mid(버퍼, 15, 2))
                할인금액 = Val(Mid(버퍼, 30, 4))
                예약실구문코드 = Trim(Mid(버퍼, 40, 2))
               
                ''합계 구하기
                If 할인금액 >= 1250 And 예약실구문코드 = "WA" Then
                    합계 = 합계 + 숙박요금 + 투숙기간
                End If
               
                End If
        Next k
       
    Close #1
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub

Sub main()

    ''필수 변수 선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 고객구분코드, 예약방법코드, 누적점수, 추가포인트, 합계 As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일 처리
    Open "c:\c_it\data\abc0105.txt" For Input As #1
       
        For k = 1 To 인수2
            Line Input #1, 버퍼
                If k >= 인수1 Then
                ''변수저장
                고객구분코드 = Val(Mid(버퍼, 17, 2))
                누적점수 = Val(Mid(버퍼, 42, 5))
                예약방법코드 = Trim(Mid(버퍼, 38, 2))
               
                ''표처리
                Select Case 예약방법코드
                    Case "LG"
                        추가포인트 = 335
                    Case "TE"
                        추가포인트 = 712
                    Case "FA"
                        추가포인트 = 223
                    Case "HU"
                        추가포인트 = 531
                         
                End Select
               
                ''합계 구하기
                If 고객구분코드 = "VP" Then
                    합계 = 합계 + 누적점수 + 추가포인트
                End If
               
               
                End If
        Next k
       
    Close #1
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계
    Close #2
End Sub