programa que simule un cajero automatico visual basic

programa que genera la simulacion de un cajero automatico,, pero sensilloespero les sirva de muchoModule Module1 Sub Main() 'desarrolle un programa que simule un cajero automatico 'eje. ingrese la cantidad a retirar 199.89 '9 billetes de a 20 '1 billete de a 10 '1 billete de a 5 '4 billetes de a 1 '3 monedas de a 0.25 '1 moneda de a 0.10 '4 monedas de a 0.01 Console.WriteLine("Ingrese la cantidad a retirar" Dim retirar As Double retirar = Console.ReadLine Dim veinte As Integer Dim diez As Integer Dim cinco As Integer Dim uno As Integer Dim cora As Integer Dim diezctvs As Integer Dim centavo As Double veinte = Int(retirar / 20) : retirar = retirar Mod 20 Console.WriteLine(veinte & " billetes de $20" diez = Int(retirar / 10) : retirar = retirar Mod 10 Console.WriteLine(diez & " billetes de $10" cinco = Int(retirar / 5) : retirar = retirar Mod 5 Console.WriteLine(cinco & " billetes de $5" uno = Int(retirar / 1) : retirar = retirar Mod 1 Console.WriteLine(uno & " billetes de $1" cora = Int(retirar / 0.25) : retirar = retirar Mod 0.25 Console.WriteLine(cora & " monedas de $0.25" diezctvs = Int(retirar / 0.1) : retirar = retirar Mod 0.1 Console.WriteLine(diezctvs & " monedas de $0.10" centavo = Int(retirar / 0.01) : retirar = retirar Mod 0.01 Console.WriteLine(centavo & " monedas de $0.01" Console.ReadLine() End Sub End Module