Problemas con desdoblaje de monedas euro

Hola expertos espero alguien me pueda ayudar, resulta que estoy realizando una aplicación para ingresada una cantidad de euros me desdoble la cantidad de billetes y monedas para dicha cantidad.
Para el desdoblaje de billetes no hay problemas, mi código utilizado es el siguiente:
Dim euros As String
Dim billetes_500 As Integer
Dim residuo2 As Long
Dim billetes_200 As Integer
Dim residuo3 As Long
Dim billetes_100 As Integer
Dim residuo4 As Long
Dim billetes_50 As Integer
Dim residuo5 As Long
Dim billetes_20 As Long
Dim residuo6 As Long
Dim billetes_10 As Integer
Dim residuo7 As Long
Dim billetes_5 As Integer
Dim residuo8 As Long
Dim monedas_2 As Integer
Dim residuo9 As Long
Dim monedas_1 As Integer
Dim iEuros As Long
Dim centimos As Integer
Dim t
Dim residuo10 As Long
Dim monedas_50 As Integer
euros = InputBox("Cantidad de EUROS")
billetes_500 = Int(euros / 500)
'billetes de 200
residuo2 = euros Mod 500
billetes_200 = Int(residuo2 / 200)
'billetes de 100
residuo3 = residuo2 Mod 200
billetes_100 = Int(residuo3 / 100)
'billetes de 50
residuo4 = residuo3 Mod 100
billetes_50 = Int(residuo4 / 50)
'billetes de 20
residuo5 = residuo4 Mod 50
billetes_20 = Int(residuo5 / 20)
'billetes de 10
residuo6 = residuo5 Mod 20
billetes_10 = Int(residuo6 / 10)
'billetes de 5
residuo7 = residuo6 Mod 10
billetes_5 = Int(residuo7 / 5)
Cuando comienzo mi desoble de monedas para las monedas de 2 y 1 tampoco, mi codigo
'monedas de 2
residuo8 = residuo7 Mod 5
monedas_2 = Int(residuo8 / 2)
'monedas de 1
residuo9 = residuo8 Mod 2
monedas_1 = Int(residuo9 / 1)
Para poder sacar la cantidad de monedas de 0,50 aplico la funcion split:
'monedas de 0,50
t = Split(euros & ",", ",")
iEuros = t(0)
centimos = t(1)
residuo10 = Int(centimos / 50)
Y para sacar la cantidad de monedas 0,20 no me toma:
Dim residuo11 As Long
Dim monedas_20 As Integer
residuo11 = residuo10 Mod 50
monedas_20 = Int(residuo11 / 20)
Alguien me puede orientar ya que las monedas de 0,50 para abajo se me ha complicado, desde ya muchas gracias saludos!!