Задача про сдачу - VB

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

Добрый вечер! Написал код, но уж очень коряво.Помогите пожалуйста исправить. Заранее спасибо. P.S если есть ошибки в оформлении темы сообщите пожалуйста. В обращении имеются 1, 2, 5, 10, 20, 50 рублевых монет. Написать программу, определяющую сдачу наименьшим количеством монет. Для определения размера сдаваемой сдачи сначала опре-делить, сколько требуется для этого монет 50-рублевого достоинства, затем 20, 10, 5, 2, 1, пока необходимая сумма не будет набрана.

Sub Main()
    Dim money As UShort 
    Dim surrender1 As Byte
    Dim surrender2 As Byte
    Dim surrender3 As Byte
    Dim surrender4 As Byte
    Dim surrender5 As Byte
    Dim surrender6 As Byte
    Console.WriteLine("Введите количество денег")
    money = Console.ReadLine()
    If money \ 50 <> 0 Then
       surrender1 = money \ 50
    ElseIf money Mod 50 <> 0 Then
       surrender2 = (money Mod 50) \ 20
    ElseIf money (money Mod 50) Mod 20) <> 0 Then
       surrender3 = ((money Mod 50) Mod 20) \ 10
    ElseIf (((money Mod 50) Mod 20) Mod 10) <> 0 Then
       surrender4 = (((money Mod 50) Mod 20) Mod 10) \ 5
    ElseIf ((((money Mod 50) Mod 20) Mod 10) Mod 5)  <> 0 Then
       surrender5 = ((((money Mod 50) Mod 20) Mod 10) Mod 5) \ 2 
    Else 
       surrender6 = 1
    End if 
    Console.WriteLine("Ваша сдача составит " & surrender1 & " купюр по 50 рублей " & surrender2 & " купюр по 20 рублей " & surrender3 & " купюр по 10 рублей " & surrender4 & " купюр по 5 рублей " & surrender5 & " купюр по 2 рубля " & surrender6 & " купюр по рублю " )
End Sub

Решение задачи: «Задача про сдачу»

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

                            money = Console.ReadLine()
If money >= 50 Then q = money \ 50: money = money - q * 50: Console.WriteLine(q & " x50" & vbCrlf)
If money >= 20 Then q = money \ 20: money = money - q * 20: Console.WriteLine(q & " x20" & vbCrlf)
If money >= 10 Then q = money \ 10: money = money - q * 10: Console.WriteLine(q & " x10" & vbCrlf)
If money >= 5 Then q = money \ 5: money = money - q * 5: Console.WriteLine(q & " x5" & vbCrlf)
If money >= 2 Then q = money \ 2: money = money - q * 2: Console.WriteLine(q & " x2" & vbCrlf)
If money = 1 Then Console.WriteLine("1" & vbCrlf)
                        