DeleteDoubleBlanks
function DeleteDoubleBlanks(s As String) As String
Replaces all duplicate blanks with a single blank.
Parameters
Example:
Dim s
s = DeleteDoubleBlanks("ABC DEF")
' returns s = "ABC DEF"