Chances are low but is there a way to replace string using regular expressions?
str = "String with a multiple spaces"
str = ReplaceRegex(str,"\s+"," ") REM "String with a multiple spaces"
Function ReplaceRegex(Str As String, Regex As String, Replacement As String)
ReplaceRegex = ?
End Function