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

Example:
VB Code:
  1. sStr =    "Hello           My name    is        Sean"  'should be
  2. sStr = "Hello My name is Sean"