CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to remove Duplicate characters from a string
Option Explicit
 
'For example, If you want to remove Duplicate spaces from the string

Public Function RemoveDuplicateChar(ByVal Expression As String, _
    Optional ByVal sChar As String = " ") As String
    Do While InStr(Expression, String(2, sChar)) <> 0
        Expression = Replace(Expression, String(2, sChar), sChar)
    Loop
    RemoveDuplicateChar = Expression
End Function