Вывод рандомных значений в RichTextBox - VB

Формулировка задачи:

Народ прошу помоши! Суть проста: Нажимаешь кнопку "Просмотреть серийный номер" И в RichTextBox1 появляются(разные) номера! То есть при каждом нажатии "Просмотреть" в окошке RichTextBox1 должно появляться разные данные! Которые будут внесены соответственно в код! К примеру: 12345678 аосссаосо 99999999 И при каждом нажатии что бы содержание выходили рандомно(случайно)! Помогите плиз! как это сделать?

Решение задачи: «Вывод рандомных значений в RichTextBox»

textual
                            Листинг программы 
                        

                                Dim S As String
    S = "0123456789qwertyuiopasdfghjklzxcvbnm"
    Dim I As Integer, Out As String
    For I = 0 To 8
        Out = Out & Mid(S, Int(Rnd * Len(S)) + 1, 1)
    Next
    RichTextBox1.Text = Out
                        