Help simplify this code...

[Ervilha]

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

    '// 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

[schaefer]

Keep track of the highest and the lowest as the numbers are entered. This eliminates the need for 400 if statements at the end.

   '// Declaração e Inicialização de Variáveis
    Dim valor(20) As Integer
    Dim resposta As String
    dim iLoop as integer
    dim iLowest as integer
    dim iHighest as integer


Do
            '// Entrada de Dados

for iLoop = 1 to 20 
            Valor(iLoop) = InputBox("Entre com o " & iLoop & "º valor:")
            if iLoop = 1 then
                 iLowest = valor(iloop)
                 iHighest = valor(iloop)
            else
                 if valor(iloop)<iLowest then iLowest = valor(iloop)
                 if valor(iloop)>iHighest then iHighest = valor(iloop)
            end if
next
                MsgBox("O smallest numero &#233; " & iLowest)
                MsgBox("O maior numero &#233; " & iHighest)
               
            '// Perguntar se Quer Continuar
            resposta = InputBox("Deseja Continuar S/N?:")
            resposta = resposta.ToUpper
        Loop Until (resposta.Equals("N"))
        Close()
    End Sub
End Class

[Ervilha]

thanks very much...