Visual Basic.NET - OBTENER VALOR DE CONSIGNA CON 20 VARIABLES

Dim consigna As String = TextBox1.Text

If consigna = "0" Then

    MsgBox("inserte consigna")

    TextBox1.Focus()

ElseIf peso1 = CInt(consigna) Then

    Label2.BackColor = Color.Green

ElseIf peso1 + peso2 = CInt(consigna) Then

    Label2.BackColor = Color.Green

    Label3.BackColor = Color.Green

ElseIf peso1 + peso3 = CInt(consigna) Then

    Label3.BackColor = Color.Green

    Label4.BackColor = Color.Green

Sub Main()

    ' Algoritmo

    Dim ValoresQueExisten() As Double = {500, 200, 100, 50, 20, 10, 5, 2, 1, 0.5, 0.2, 0.1, 0.05, 0.02, 0.01}  ' Aqui esta los valores del Euro. 15 valores, indicios de 0 hasta 14

    Dim CantidadValores As Integer = 15

    Dim CantidadDecimal As Integer = 2 ' para el euro, existen las décimales hasta el céntimo con las modenas

    Dim Resultados(CantidadValores - 1) As Integer

    Dim ValorATratar As Double

    Dim ValorATratarTmp As Double

    Dim ValorTratado As Double

    Console.Write("Valor a tratar : ")

    ValorATratar = Console.ReadLine()

    ValorATratarTmp = ValorATratar

    ValorTratado = 0.0

    ' Attencion : division entera \

    For i As Integer = 0 To CantidadValores - 1

        Resultados(i) = ValorATratarTmp * 10 ^ CantidadDecimal \ ValoresQueExisten(i) * 10 ^ CantidadDecimal

        ValorTratado += Resultados(i) * ValoresQueExisten(i)

        ValorATratarTmp = ValorATratar - ValorTratado

    Next

    ' Prueba : mostrar en Console

    For i As Integer = 0 To CantidadValores - 1

        If Resultados(i) > 0 Then

            Console.WriteLine(Resultados(i) & " x " & ValoresQueExisten(i) & " = " & Resultados(i) * ValoresQueExisten(i))

        End If

    Next

    Console.ReadKey()

End Sub