Como hago esto???

[ldr]

Estoy haciendo un codigo que simule el funcionamiento de una maquina de colectivo y no se como dar el vuelto por monedas suponiendo que tengo solo monedas de 0.5, 0.10, 0.25, 0.50 y 1. Como hago para imprimir solo las monedas necesarias para llegar al vuelto.
Hasta aca llegue con el codigo:

<%
cant = request.form ("cant")
val = request.form ("val")
m1 = request.form ("m1")
m2 = request.form ("m2")
m3 = request.form ("m3")
m4 = request.form ("m4")
m5 = request.form ("m5")

monedas = array (m1,m2,m3,m4,m5)

import = val * cant

response.Write("Cantidad de boletos: " & cant & "<br>" & "El valor del boleto es: $" & val & "<br>" & "El importe a cobrar es: $" & import & "<br>")

num = 0

For x = 0 to 4
If (IsNumeric(monedas (x)) = false) then

ElseIf monedas (x) = 0 then

Else
num = num -- monedas (x)
response.Write("Usted ingreso: $" & monedas (x) & "<br>")
End If

Next

response.write ("<br>")


If (IsNumeric(num) = false) then

ElseIf num < import then
response.Write("Total ingresado: $" & num & "<br>")
response.write ("Debe ingresar monedas" & "<br>")
Else
response.Write("Total ingresado: $" & num & "<br>")
End If

%>

Graciassssss