Remove Whitespace

How can I remove spaces from with in a string (Trim does not work here)

Example:

VB Code:

sStr =    "Hello           My name    is        Sean"  'should be
sStr = "Hello My name is Sean"

Code:

---

Do While instr(sStr,"  ")>0
  sStr = Replace(sStr,"  "," ")
Loop

---