Aquí les dejo un código para eliminar los caracteres duplicados. Disfrutenlo.
Yo no lo hice, lo encontre en la web, pero creo que a más de uno de servirá.

Código:
Public Function EliminarDuplicados(Fuente, Optional Char = " ") As String

 On Error GoTo LocalError

 Char = CStr(Char)
 EliminarDuplicados = CStr(Fuente)
 EliminarDuplicados = Replace(EliminarDuplicados, Char, vbNullChar)
 While InStr(EliminarDuplicados, String(2, vbNullChar)) > 0
 EliminarDuplicados = Replace(EliminarDuplicados, String(2, vbNullChar), vbNullChar)
 Wend

 ' Delete Leading and Trailing
 If Left(EliminarDuplicados, 1) = vbNullChar Then EliminarDuplicados = Right(EliminarDuplicados, Len(EliminarDuplicados) - 1)
 If Right(EliminarDuplicados, 1) = vbNullChar Then EliminarDuplicados = Left(EliminarDuplicados, Len(EliminarDuplicados) - 1)

LocalError:
 EliminarDuplicados = Replace(EliminarDuplicados, vbNullChar, Char, , , vbTextCompare)
End Function
Saludos,
Skipped.

Edited by: Skipped