ランダムな文字や数字を取得

Randomize(Rndの呼び出し前)
Rnd

Option Explicit

Const strBase = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim strPassword
Dim strLen
Dim rndNum
Dim i
Dim ketaCnt

ketaCnt = InputBox("何桁のパスワードにしますか", "確認")

' Rndを呼ぶ前の呪文.
Randomize

strLen = Len( strBase )

strPassword = vbNullString

For i = 1 To ketaCnt

    ' 乱数取得.
    rndNum = Int(Rnd * strLen) + 1

    ' パスワード.
    strPassword = strPassword & Mid( strBase , rndNum , 1)

Next

WScript.Echo strPassword

桁数を問い合わせてその桁数のランダムな文字を取得するサンプルです。

Rnd関数でランダムな値を取得できます。
Rnd関数をコール前には「Randomize」ステートメントをコールが必要です。