SQL to Remove Multiple Embedded spaces

CREATE FUNCTION dbo.fn_CleanUp_MichaelMeierruth_MKII(@S VARCHAR(8000))  
RETURNS VARCHAR(8000)  
BEGIN  
RETURN   replace(replace(replace(replace(replace(replace(replace(ltrim(rtrim(@s)),  
  '                                 ',' '),  
  '                 ',' '),  
  '         ',' '),  
  '     ',' '),  
  '   ',' '),  
  '  ',' '),  
  '  ',' ')  
END