Gerar números e letras aleatório

Este código utilizo para gerar números e letras para assinar/verificar a autenticidade de um doc. emitido pelo sistema (Certidão)
Onde se gera o numero e grava em duas tabelas, uma a tabela onde se arquiva os numeros gerados e a outra a tabela do doc. gerado gravando o numero tambem na mesma.

Assim pode-se verificar a autenticidade da emissão de uma certidão.

Function Autentica() As String
alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
For I = 1 To 24
   Randomize
   X = Int(Rnd * Len(alfanumerico)) + 1
   If InStr(1, sequencia, Mid(alfanumerico, X, 1)) Then
        I = I - 1
   Else
       sequencia = sequencia & Mid(alfanumerico, X, 1)
   End If
Next
Autentica = sequencia
End Function

Cumprimentos.

Harisson, valeu pela contribuição, ajudou muito.

Nelson