Gerando números aleatórios...

[T-pain]

Olá

Eu gostaria que alguém me ajudasse com uma função para gerar números aleatórios. No momento eu estou usando o seguinte:

Public Function NumeroRandomico(ByVal semente As Integer, ByVal valorMinimo As Integer, ByVal valorMaximo As Integer) As Integer

'CRIANDO : OBJETO RANDOM (GERADOR DE NÚMEROS ALEATÓRIOS).

Dim Randomico As New Random(Semente)

'RETORNANDO : NÚMERO ALEATÓRIO.

Return Randomico.Next(valorMinimo, valorMaximo)

End Function

======== Essa função eu uso no botão que irá gerar os números =============

'CRIANDO : VARIÁVEIS NECESSÁRIAS

Dim Semente As Integer

Dim ValorMinimo As Integer

Dim ValorMaximo As Integer

Dim Numero(5) As Integer

Dim Contador As Integer

'ARMAZENANDO : VALOR MÍNIMO DE INTERVÁLO DESEJADO.

ValorMinimo = "000000"

'ARMAZENANDO : VALOR MÁXIMO DE INTERVÁLO DESEJADO.

ValorMaximo = "999999"

'EXECUTANDO : GERADOR DE NÚMEROS ALEATÓRIOS.

For Contador = 0 To 5 Step 5

Semente = CType(Date.Now.Ticks And Integer.MaxValue, Integer)

Numero(Contador) = NumeroRandomico((Semente - Contador), ValorMinimo, ValorMaximo)

Next

'EXIBINDO : NÚMERO ALEATÓRIO(1).

TextBox7.Text = CType(Numero(0), String)

End Sub

Contudo essa função só gera números [6 dígitos], porém eu quero que envolva não só númeos mas também letras, e em alguns casos são gerados números com 5 dígitos.

Alguém sabe como resolver esses dois problemas?

Desde já agradeço...

Falou