Reg Exp remove 1 space

[matrixindicator]

I have a regular expression to remove Control Signs.
"URB O PAZO 11  RARIS XESTELO."
become
"URB O PAZO 11 RARIS XESTELO."

But between 11 and RARIS is a space to much (two instead of one), how can I remove this ?

Dim re as New RegExp
Dim textNotOk, textOk as String
 
With re
   .Global = True
   .IgnoreCase = True
   .Multiline = True
   .Pattern = "[\x01-\x1f]"
End With
 
textOk = re.Replace(textNotOk, "")
 
Set re = Nothing

 

[Golom]

Do Until Len(textOK) = Len(Replace(TextOK, "  ", " "))
    textOK = Replace(TextOK, "  ", " ")
Loop