아래 코딩을 했는데요
''입력 파일 처리
Open "C:\C_it\data\s10261.txt" For Input As #1
부분이 노란 표시가 되면서 53 런타임 오류가 뜨거든요..
어디가 잘못 됐는지 못찾겠어요
시험은 다가오구 제대로 넘어가는 코딩이 없어서 너무 속상해요
선생님 좀 알려 주세요 ㅠ_ㅠ

Sub main()

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

''핵심 변수 선언
Dim 투숙기간, 누적점수, 숙박요금, 예약번호, 합계(1000), P, Temp, Num As Variant

''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력 파일 처리
Open "C:\C_it\data\s10261.txt" For Input As #1

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

''변수 저장
투숙기간 = Val(Mid(버퍼, 15, 2))
누적점수 = Val(Mid(버퍼, 40, 5))
숙박요금 = Val(Mid(버퍼, 19, 6))
예약번호 = Val(Mid(버퍼, 1, 6))

''합계 구하기
If 투숙기간 >= 7 Then
Num = Num + 1
합계(Num) = 누적점수 + 숙박요금 * 1
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, 합계(6)

Close #2

End Sub