how about strInput = " This has many spaces " strResult = Trim(Replace(strInput," "," ")) > That will turn " This has many spaces " > into "This has many spaces"