Вывод случайного символа из строки - VB

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

всем Привет...... Помогите пожалуйста с одним вопросом, мне надо показать в label случайный символ которая имеется в Text... и еще один вопрос как сделать так чтоб символ не повторялась? спасибо огромное.....

Решение задачи: «Вывод случайного символа из строки»

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

                            Dim cl As Collection, i&, s$
 
Private Sub Command1_Click()
If cl.Count Then
    i = 1 + Int(cl.Count * Rnd)
    Label1 = cl(i)
    cl.Remove i
Else
    Label1 = "Нет больше букаф!"
End If
End Sub
 
Private Sub Text1_LostFocus()
s = Text1
Set cl = New Collection
For i = 1 To Len(s)
    cl.Add Mid(s, i, 1)
Next
End Sub
                        