Visual Basic - problema con un programa

bueno tengo k aser una tarea k es sobre un cajero automatico k de la menor cantidad de billetes, por ejemplo k si kiero sakar 1100 pesos k el cajero me de 5 de a 200 y uno de a 100

este es el codigo k e echo:

Private Sub cmdacepter_Click()

Dim total, bi0, ret_res, cant, bi10, bi20, bi50, bi100, bi200 As Integer

bi200 = Val(bil200)
bi100 = Val(bil100)
bi50 = Val(bil50)
bi20 = Val(bil20)
bi10 = Val(bil10)
cant = Val(Cant_ret)

bil200 = Val(Cant_ret / 200)
Cant_ret = Val(Cant_ret) - Val(bil200 * 200)

bil100 = Val(Cant_ret / 100)
cant = Val(Cant_ret) - Val(bil100 * 100)

bil50 = Val(Cant_ret / 50)
cant = Val(Cant_ret) - Val(bil50 * 50)


bil20 = Val(Cant_ret / 20)
cant = Val(Cant_ret) - Val(bil20 * 20)


bil10 = Val(Cant_ret / 10)
cant = Val(Cant_ret) - Val(bil10 * 10)
End Sub

el problema es k solo me marca el de 200 y los demas me aparecen en 0 y no c k aser, bueno si me pueden decir en k estoy ekibokado o k tengo k aser, gracias d antemano

El problema está en el redondeo:
Val(Cant_ret / 200) da la división exacta y a veces te 'dispensará' 1 billete de 200 más de los debidos, y despues Cant_ret será negativa y el resto del código irá mal.

prueba reemplazando Val(Cant_ret / 200) por Cant_ret\200 y Cant_ret = Val(Cant_ret) - Val(bil200 * 200) por Cant_ret = Cant_ret mod 200.

y así con el resto de billetes.

Muchas gracias ya a funcionado bien, no sabes cuanto te lo agradesco ya tenia como 30 horas en ese programa