DeleteDoubleBlanks Sub DeleteDoubleBlanks($s As String) As String Replaces all consecutive duplicate blanks with a single blank. Parameters $s ... String expression to process. Example: Dim $s$s = DeleteDoubleBlanks("ABC DEF")' returns $s = "ABC DEF"
