Remove Empty Space From A Large String?

I try to remove empty space from a large string, using replace(), and using regex.

the replace method:

replace
Do While (stripped.IndexOf(Space(2)) >= 0)
stripped = stripped.Replace(Space(2), " ")
Loop

and with regex using its replace with : "/ss+/" - regular expression.

but I am still stuck with empty strings such as :

temp ""String

these string have lengths ranging between 3 and 8, so I have tried to adapt the replace function with something like this:

replace 2

Do While (stripped.IndexOf(Space(4)) >= 0)
stripped = stripped.Replace(Space(4), Space(1))
Loop