Сумма монет - VB

Формулировка задачи:

Добрый день! Есть задача с которой никак не могу разобраться, за любую помощь буду очень признателен. Задача: По введенноц сумме(в форме 0.nn) вывести в словесной форме наименьшую(по числу монет) совокупность монет с их достоинсвами(одна копейка, пять, десять, пятьдесят копеек) в убывающем порядке. Например: введено - 0.23, результат - десять копеек+десять копеек+три копецки. Исходая информация вводиться с клавиатуры.

Решение задачи: «Сумма монет»

textual
                            Листинг программы 
                        

                            Sub main()
s = InputBox("Сумма в рублях=", "Разделитель - . (точка)!")
v = CInt(100 * Val(s))
For Each k In Array("50 копеек", "20 копеек", "15 копеек", "10 копеек", "5 копеек", "3 копейки", "2 копейки", "1 копейка")
  While v >= Val(k)
    o = o & "+" & k
    v = v - Val(k)
  Wend
Next
MsgBox "введено - " & s & ", результат - " & Mid$(o, 2)
End Sub
                        