ช่วยทีคับ

คือว่าผมเขียนโปรแกรมทอนเงิน เช่น 1500 ต้องใช้ แบงค์ 1000 1 ใบ,5001 ใบ เขียนแบบนี้ถูฏเปล่าคับ
dim t_bank as integer
dim t_1000 as integer
dim t_500 as integer
dim i as integer

t_bank = val(text1.text)
do while t_bank >=1000
t_1000 = t_bank - 1000
i = i+1
loop
do while t_bank >= 500
t_500 = t_bank -500
i = i+1
loop

text2.text = t_1000
text3.text = t_500
ถูกเปล่าอ่ะคับ