Function CreatePasswd(Size,OnlyLetters,LowerCase)

        S=""
        Randomize
        If OnlyLetters Then

                If LowerCase Then
                        For Cpt=1 To Size
                                n=0
                                Do While ((n<=96) or (n>=123))
                                        n=int(rnd*126)
                                Loop
                                S=S+Chr(n)
                        Next
                Else
                        For Cpt=1 To Size
                                n=0
                                Do While ((n<=63) or (n>=91)) and ((n<=96) or (n>=123))
                                        n=int(rnd*126)
                                Loop
                                S=S+Chr(n)
                        Next

                End If

        Else
                For Cpt=1 To Size
                        n=0
                        Do While (n<=32)
                                n=int(rnd*126)
                        Loop
                        S=S+Chr(n)
                Next

        End If

        CreatePasswd = S

End Function