1번문제를 풀었는데..저는 답처럼 날짜랑 월일은 나오지 않는데 그건 왜그런건가요??
년도만 나오는데 그렇게 나올수있게 할려면 따로 뭘해야하나요??

Sub main()
    ''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
    ''핵심변수선언
    Dim 예약수량, 예약금액, 예약일자(1000), 일련번호(1000), 지불금액(1000), Temp, P, Num As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
    ''입력파일처리
    Open "c:\c_it\data\san0105.txt" For Input As #1
    
     For K = 1 To 인수2
      Line Input #1, 버퍼
      If K >= 인수1 Then
      ''변수저장
      예약수량 = Val(Mid(버퍼, 18, 5))
      예약금액 = Val(Mid(버퍼, 23, 10))
     
      ''합계구하기
      If 예약수량 * 예약금액 >= 7000000 Then
        Num = Num + 1
        지불금액(Num) = Val(Mid(버퍼, 48, 10))
        예약일자(Num) = Val(Mid(버퍼, 8, 10))
        일련번호(Num) = Val(Mid(버퍼, 1, 7))
        End If
      End If
     Next K
    ''정렬구하기
    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
       
        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, 예약일자(Num)
End Sub