CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to remove Duplicate Spaces from a string
Option Explicit
 
Public Function RemoveDuplicateSpaces(ByVal Expression As String) As String
    Do While InStr(Expression, Space(2)) <> 0
        Expression = Replace(Expression, Space(2), Space(1))
    Loop
    RemoveDuplicateSpaces = Expression
End Function