VBA Excel

How can i achieve a single spacing for each word. I've tried using this code
expr1 = Replace(expr1, " ", " ") .Though, it redues the spacing but it's not single spacing of each word. Why is this so?? :)