How to remove extra spaces, tab in a text file?

[kkishore12345]

ParseSpaces=Replace(ParseSpaces, chr(10),"")
ParseSpaces=Replace(ParseSpaces, chr(14),"")
ParseSpaces=Replace(ParseSpaces, chr(32),"")

Thanks for your reply Surya, I am able to remove couple of spaces, tabs. How can I remove any number of empty spaces in a line?
say for example, I have the following string.
Example:"Testing should be done everywhere.
In the above line, after everywhere, rest of the line is blank. How can I remove these kinds of spaces?

Thanks,
kishore