금방전화 드렸던 학생인데요......
다 맞게 코딩한거 같은데.....
그리고 temp 를 임시로 코딩해도 되나요?

Option Explicit

Sub main()
    Dim 인수1, 인수2, k, 버퍼 As Variant
    Dim 할인금액, 투숙기간, 합계(1000), p, temp, num As Variant

    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수1 = 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(버퍼, 30, 4))
            투숙기간 = Val(Mid(버퍼, 15, 2))
            num = num + 1
            합계(num) = 할인금액 * 투숙기간
        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, 합계(8)
Close #2
       
End Sub