교수님이 알려주신대로 출력파일처리 부분이 잘못되어서 고쳤는데도 5 런타임 오류가 있다고 인수처리 부분에서 인수 2 부분에 디버그가 나네요...
대체 왜 그런걸까여? 폴더를 잘못 만들어서인가여? 제대로 만든것 같은데.....
아니면 혹시 영어 첫글자는 무조건 대문자로 해야했나요?


Option Explicit

Sub main()
''''필수 변수 선언
 Dim 인수1, 인수2, k, 버퍼 As Variant

''''핵심 변수 선언
 Dim 단가, 이익포인트, 거래포인트, 합계(1000), temp, p, num 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 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
           num = num + 1
           합계(num) = 이익포인트 + 거래포인트
           End If
        End If
    Next k
        ''''정렬(내림차순)
        For k = 1 To num
            For p = k To num
                If 합계(k) < 합계(p) Then
                   
                    temp = 합계(k)
                    합계(k) = 합계(p)
                    합계(p) = temp
                   
               
                End If
               
            Next p
        Next k
Close #1

''''출력 파일처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
   
Close #2

End Sub