[Resolvido]Criar senha através do CPF do Usuário

Public Function fncGerarSenha(cpf$)
Dim j%, p(4) As Variant
cpf = Replace(Replace(cpf, ".", ""), "-", "")
For j = 1 To 11
    Select Case j
        Case 1 To 3: p(0) = p(0) + Val(Mid(cpf, j, 1))
        Case 4 To 6: p(1) = p(1) + Val(Mid(cpf, j, 1))
        Case 7 To 9: p(2) = p(2) + Val(Mid(cpf, j, 1))
        Case 10 To 11: p(3) = p(3) + Val(Mid(cpf, j, 1))
    End Select
Next
p(0) = Hex(p(0)): p(1) = Hex(p(1))
p(2) = Hex(p(2)): p(3) = Hex(p(3))
fncGerarSenha = IIf(Len(p(0)) = 1, "0" & p(0), p(0)) & IIf(Len(p(1)) = 1, "0" & p(1), p(1)) & IIf(Len(p(2)) = 1, "0" & p(2), p(2)) & IIf(Len(p(3)) = 1, "0" & p(3), p(3))
End Function