Option Explicit

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\s10281.txt" For Input As #1

For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

''변수저장
배달거리 = Val(Mid(버퍼, 33, 3))
이익포인트 = Val(Mid(버퍼, 25, 3))

If 배달거리 >= 50 Then
합계 = 합계 + 이익포인트

End If

End If
Next i

Close #1
''출력
Open "C:\C_iT\Data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2

외부프로시저 가안된다고나오네요 어디잘못한건가요