Генератор паролей

[-=L.Morgan=-]

Помогите зделать генератор паролей по шаблону што на картинке ниже. Если можна прикрепите исходник!

[Sasha_Smirnov]

Sub Abracadabra() 'генерация и печать N-значных случайных паролей'
Static N
Dim add

Do
N = InputBox("Количество символов в пароле.", "Длина пароля", N)
Loop Until IsNumeric(N) And N >= 1 And N < 100

For i = 1 To N
    Do
    Randomize
    add = Fix((1 + 7 * Rnd) * 32)             'случайный код ASCII добавляем'
    Loop Until add < 127 Or add > 148 '(кроме "неудобных" значков)'
    parole = parole & Chr$(add)
Next

If MsgBox(parole, vbOKCancel, "Печать пароля") = vbOK Then
    Selection.TypeParagraph
    Selection.TypeText (parole)
    Selection.TypeParagraph
End If

End Sub

В приложенном файле жмите Alt + G либо Alt + L. Клавишу Alt отпускать не надо.

Я помог? А то не ясно — Вам нужен текст пароля или эмуляция его ввода?