DeleteDoubleBlanks
function DeleteDoubleBlanks(s As String) As String
Ersetzt alle doppelten Leerzeichen durch ein einfaches Leerzeichen.
Parameter
Beispiel:
Dim s
s = DeleteDoubleBlanks("ABC DEF")
' returns s = "ABC DEF"