como posso fazer para gerar uma numeracao que tem letra no meio

 

ex. A66253M22556C2662

 

valeu

Dim i As Integer
Dim mNumero As Integer
Dim mRandom As Integer

Text1 = ""
For i = 1 To 150
    Randomize
    mRandom = Int((90 * Rnd) + 1)
    If mNumero = 15 Then Exit For
   
    If mRandom > 47 And mRandom < 58 Then
        Text1 = Text1 & Chr(mRandom)
        mNumero = mNumero + 1
    End If
   
    If mRandom > 64 And mRandom < 91 Then
        Text1 = Text1 & Chr(mRandom)
        mNumero = mNumero + 1
    End If
   
Next

 

Roberto

Anderson nao entendi para que voce quer fazer mais tente.

 

 

Numero : 1234567890

Voce pode gerar algumas letras assim. Pegue uma posicao qualquer. Tipo da terceira a quarta. Numero 34

Some ao 65 + 34 ai vai dar 99.

s = 65 + val(mid("1234567890",3,2))

Ai é so juntar novamente ao numero "12" & chr(s) & "567890" ficando

12c567890.

 

Voce tem que somar 65 pois ele é a primeira letra em ascii (A). Nao sei para que serve isso mais acho que funciona.