회원별 예약관리문제 입니다.

1. 결재 금액이 5000000미만인 자료를 대상으로 (예약수량*예약금액)의 값에 따라 오름차순으로 정렬했을 경우 가장 마지막 자료의 결재금액을 출력하되, (예약수량*예약금액)의 값이 중복될 경우, 예약번호를 오름차순으로 정렬하여 처리하시오.

''''필수변수 선언
''''핵심변수 선언
dim 결재금액(1000), 예약수량, 예약금액, 합계(1000)예약번호(1000), t, temp, num as variant
= 1.결재금액(1000)이 아니라 그냥 결재금액
   2,합계(1000)예약번호(1000):가운데 ,(쉼표)
  3.합계(1000),결재금액(1000), 예약번호(1000)


''''인수처리
''''입력파일처리

 for k=1 to 인수2
 line input #1,  버퍼

 if k>= 인수1 then  
 ''''변수저장
  예약수량 = val(mid(버퍼, 어쩌고 , 저쩌고))
  예약금액 =  val(mid(버퍼, 어쩌고 , 저쩌고))
  
''''배열변수처리
 if 결재금액 < 5000000 then
  num= num+1
  합계 (num) = 예약수량 *예약금액
  결재금액(num) = val(mid(어쩌고, 저쩌고) 
  =위에 배열변수에 저장(결재금액= val(mid(어쩌고, 저쩌고)
  예약번호(num) = val(mid(어쩌고, 저쩌고))
 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
 end if 
 next p
 next k

---추가-----------------------

 temp = 결재금액(k)
 결재금액(k)=결재금액(p)
 결재금액(p) = temp
 end if 
 next p
 next k


-------------------------


''''출력파일 처리
 open 이하생략
  print #2,  인수1, 인수2,  결재금액(num)

여기 비쥬얼 베이직이 없는 곳이라서 다른것은 빼고, 문제에 해당되는 것 위주로 적었는데, 뭐가 잘못된 지 모르겠어요.
 결재금액에서 뭔가 잘못된것 같은데....
 결재금액, 배열결재금액(1000)이라고 따로 선언도 해봤는데 안되요. 
뭐가 잘못된거죠?ㅡ.ㅜ;;;;