Как напечатать заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры - VB

Option Explicit
 
Private Sub Form_Load()
Dim i As Long, Text As String
Text = "Программа. Напечатать заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры."
i = 1
Do While i <= Len(Text)
    Text = Left$(Text, i) & Replace$(Text, Mid$(Text, i, 1), vbNullString, i + 1)
    i = i + 1
Loop
Debug.Print Text
End Sub