【VBA】パスワードを生成する

Option Explicit

'セルに表示させるときは一文字目が = だと
'エラーになるので注意
Public Sub パスワード生成()

    Debug.Print createPassword(8)

End Sub

Private Function createPassword(ByRef pwLength As Long) As String
    Dim asciiCode As Long
    Dim pw As String
    
    Randomize
    pw = ""
    
    'パスワード文字列がパスワード文字数になるまで繰り返す
    Do
        '33～126の範囲でランダム値を取得
        asciiCode = Int((126 - (33 - 1)) * Rnd + 1) + (33 - 1)
        'Chr()で文字に変換してパスワード文字列に追加
        pw = pw & Chr(asciiCode)

    Loop Until Len(pw) = pwLength
    
    createPassword = pw
    
End Function