Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран

[Алена_=)))]

помогите доделать задачку с коллекциями: Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран.просто вывести кол-во, например , слово Алена различных будет 4. какое условие написать, знаю только как подсчитать общее кол-во символов=(

Private Sub UserForm_Initialize()

Dim e As Integer, i As Integer, w As Byte, col As Integer


TextBox1.Value = Selection.Range
For i = 1 To Selection.Range.Words.Count

If ????? Then col = col + 1


Next i
Label4.Caption = col


End Sub

[Ципихович Эндрю]

с одного потока?
http://www.cyberforum.ru/vba/thread607283.html