Dim s As String = "sd fs dfjklsj dflkjs dflk jsdlfkj sdlf f jweklf wjlke fwe f wef we f wef we   jweflk fjwelkfj wlke  wef lfw elkfw ejfl  e w fwe fwe fwef we  wefjlk"
Dim start As Long = DateTime.Now
For i = 1 To 100000
   RemoveRedundantSpace(s)
Next
Log($"$1.2{(DateTime.Now - start) / 100000}"$)

------------------------------------------------------------
Sub RemoveRedundantSpace(TextToClean As String) As String
   Return Regex.Replace("[ ]{2,}", TextToClean, " ")
End Sub