Selecionar o valor mais próximo

Ola!
Bem, tenho um código que gera 5 números aleatórios e 5 TextBox diferentes, depois um um sexto número é gerado
Então aí vem o problema, eu quero depois que eu clicar em botão ele me mostre qual dos 5 números é mais próximo ao sexto num gerado...

Olá, pode fazer a a verificaçao dos cincos números.
Para isso fazer a subtracao de cada número com o sesto numero.

Estou nontelemovel mas vai exemplo:

Dim NrProximo, diferenca

Diferenca=abs(numero6-numero1)
NrProximo=Numero1

If abs(numero6-numero2) < diferença then
Diferenca=abs(numero6-numero2)
NrProximo=Numero2
Endif
... If igual anterior para 3, 4 e 5

Abraço

Olá, como ficou a situação?
Os utilizadores do fórum merecem e agradecem o retorno.
Abraço