Function GerarSenha()
On Error GoTo TratarErro
Dim TamanhoSenha As Integer, Codigo As String, Novo As String

'--------------------------------------
'CRIA UMA SENHA ALEATÓRIA
'CRIADO POR SAM OLIVEIRA
'DATA: 20/05/2010
'TODOS OS DIREITOS RESERVADOS
'--------------------------------------

Codigo = ""
TamanhoSenha = Nz(Form_SenhaAleatoria.TamanhoSenha, 8)

Dim Letra(26)

Letra(0) = "A"
Letra(1) = "B"
Letra(2) = "C"
Letra(3) = "D"
Letra(4) = "E"
Letra(5) = "F"
Letra(6) = "G"
Letra(7) = "H"
Letra(8) = "I"
Letra(9) = "J"
Letra(10) = "K"
Letra(11) = "L"
Letra(12) = "M"
Letra(13) = "N"
Letra(14) = "O"
Letra(15) = "P"
Letra(16) = "Q"
Letra(17) = "R"
Letra(18) = "S"
Letra(19) = "T"
Letra(20) = "U"
Letra(21) = "V"
Letra(22) = "X"
Letra(23) = "W"
Letra(24) = "Y"
Letra(25) = "Z"

Randomize

Do While Len(Codigo) < TamanhoSenha
    Novo = Letra(Int(26 * Rnd))
    Codigo = Codigo & Novo
Loop

GerarSenha = Codigo

SairFunction:
Exit Function

TratarErro:
MsgBox "Ocorreu um erro ao processar o comando:" & Chr(13) & Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction

End Function