Option Explicit

Sub Main()

''핵심 변수 선언
Dim 인수1, 인수2, K, 버퍼 As Variant

''필수 변수 선언
Dim 단가, 이익포인트, 거래포인트, 합계(1000), 거래처번호(1000), p, temp, 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) = 이익포인트 + 거래포인트
        거래처번호(num) = Val(Mid(버퍼, 1, 7))
       
    End If
    End If
    Next K

''정렬(합계내림차순 or 합계같음 and 거래처번호 오름차순)
For K = 1 To num
    For p = K To num
        If (합계(K) < 합계(p) Or _
        합계(K) = 합계(p) And 거래처번호(K) > 거래처번호(p)) Then
       
        temp = 합계(K)
        합계(K) = 합계(p)
        합계(p) = temp
       
        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

===============
답은 맞게 나오는데요~~ (제 폴더에서 열어보면..100 200 일때 87이라고 나오거든요)
수검 프로그램에서 전송할 때 exe파일을 클릭하고 실행버튼을
눌러도 결과값에 No file이라고 떠서요~~