Преобразование строки - VB (172028)

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

Доброго времени суток, помогите пожалуйста с написанием программного кода. Вот для такого задания:

"Из заданной строки удалить все символы, входящие в нее более одного раза."

Вот что мне удалось сделать, но программа работает не корректно

Sub Обработка(ByVal b As String, ByRef a As String)
        Dim m, d, j As Short
        m = CShort(a.Length)
        d = CShort(b.Length)
        For j = 1 To CShort(m - 1)
            Do While j < m
                If a.Substring(j, 1) = b.Substring(j + 1, 1) Then
                    a = a.Remove(i, 1)
                    m = CShort(m - 1)
                Else
                    j = j + 1
                End If
            Loop
        Next j
    End Sub

Решение задачи: «Преобразование строки»

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

                            Option Explicit
Private Sub Комманда1_Click()
Dim S
Dim R
Dim L
S = "Наша Маша громко плачет, уронила в речку мячик"
L = Len(S)
Do While L > 0
R = R & Left(S, 1)
S = Replace(S, Left(S, 1), "")
L = Len(S)
Loop
Debug.Print R
End Sub
                        