I type 20 numbers and show the high and low in the end...

Code:
    '// Declaração e Inicialização de Variáveis
    Dim valor(20) As Integer
    Dim resposta As String

Do
            '// Entrada de Dados
            Valor(1) = InputBox("Entre com o 1º valor:")
            valor(2) = InputBox("Entre com o 2º valor:")
            valor(3) = InputBox("Entre com o 3º valor:")
            valor(4) = InputBox("Entre com o 4º valor:")
            valor(5) = InputBox("Entre com o 5º valor:")
            valor(6) = InputBox("Entre com o 6º valor:")
            valor(7) = InputBox("Entre com o 7º valor:")
            valor(8) = InputBox("Entre com o 8º valor:")
            valor(9) = InputBox("Entre com o 9º valor:")
            valor(10) = InputBox("Entre com o 10º valor:")
            valor(11) = InputBox("Entre com o 11º valor:")
            valor(12) = InputBox("Entre com o 12º valor:")
            valor(13) = InputBox("Entre com o 13º valor:")
            valor(14) = InputBox("Entre com o 14º valor:")
            valor(15) = InputBox("Entre com o 15º valor:")
            valor(16) = InputBox("Entre com o 16º valor:")
            valor(17) = InputBox("Entre com o 17º valor:")
            valor(18) = InputBox("Entre com o 18º valor:")
            valor(19) = InputBox("Entre com o 19º valor:")
            valor(20) = InputBox("Entre com o 20º valor:")

            '// I DO THIS FOR THE LOWER 20X
            If valor(1) < valor(2) And valor(1) < valor(3) And valor(1) < valor(4) And valor(1) < valor(5) And valor(1) < valor(6) And valor(1) < valor(7) And valor(1) < valor(8) And valor(1) < valor(9) And valor(1) < valor(10) And valor(1) < valor(11) And valor(1) < valor(12) And valor(1) < valor(13) And valor(1) < valor(14) And valor(1) < valor(15) And valor(1) < valor(16) And valor(1) < valor(17) And valor(1) < valor(18) And valor(1) < valor(19) And valor(1) < valor(20) Then


'//AND THIS FOR THE HIGHETS 20X
If valor(1) > valor(2) And valor(1) > valor(3) And valor(1) > valor(4) And valor(1) > valor(5) And valor(1) > valor(6) And valor(1) > valor(7) And valor(1) > valor(8) And valor(1) > valor(9) And valor(1) > valor(10) And valor(1) > valor(11) And valor(1) > valor(12) And valor(1) > valor(13) And valor(1) > valor(14) And valor(1) > valor(15) And valor(1) > valor(16) And valor(1) > valor(17) And valor(1) > valor(18) And valor(1) > valor(19) And valor(1) > valor(20) Then
                MsgBox("O maior numero é " & valor(1))
               
And he continues to the end            

            '// Perguntar se Quer Continuar
            resposta = InputBox("Deseja Continuar S/N?:")
            resposta = resposta.ToUpper
        Loop Until (resposta.Equals("N"))
        Close()
    End Sub
End Class