Как сгенерировать строку

[Sasha_Smirnov]

Вот на этом уже можно тренироваться:

Sub АБВ_БВА_ВБА()
Dim i As Long, Q As Long, S As String, streem As New Collection
            
'                For i = AscW(" ") To AscW("z")
'                    streem.Add i
'                Next
'                'поместили коды ряда символов в коллекцию
            
                For i = AscW("А") To AscW("я")
                    streem.Add i
                Next
                'поместили коды русских букв в коллекцию
                
    Q = streem.Count
    
    Do
'        If Len(S) Mod 32 = 0 Then S = S & Chr(13)  'примочка лишь для вывода
        S = S & Chr(9)                              'тоже можно убрать
        
        S = S & ChrW(streem.Item(Fix(Rnd * Q) + 1)) 'взяли случайный элемент
        streem.Remove Fix(Rnd(0) * Q) + 1
        'удалили тот же случайный элемент (Rnd(0) повторяет предыдущий Rnd)
        Q = streem.Count
    Loop Until Q = 0
    
    MsgBox "Все символы: " & Chr(13) & S
    Debug.Print Replace(S, Chr(9), vbNullString)    'печать в окне Immediate
End Sub

[danada1]

спасибо за помощь