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

[kkishore12345]

Hi there,
Can one answer my below question please?

I wrote one action and one function as follows. I have clicked associate this function to Action under File Menu
Action:
-----------

Code:

If browser("SPLAT! A Terrestrial RF").Page("SPLAT! A Terrestrial RF").Link("NASA").Exist then
    browser("SPLAT! A Terrestrial RF").Page("SPLAT! A Terrestrial RF").Link("GNU General Public License").Click
    else
    reporter.ReportEvent micDone,"Gne public license", "License page"
end if
Set oFSO=CreateObject("scripting.FileSystemObject")
Set oFile=oFSO.CreateTextFile("C:\temp\another.txt", 2, True)
sCont=browser("SPLAT! A Terrestrial RF").Page("The GNU General Public").Object.documentElement.innertext
ParseSpaces "sCont"
oFile.write sCont
oFile.close
Set oFile=nothing
Set oFSO=Nothing

--------------------

Code:

Function ParseSpaces(TextIn)
   ParseSpaces=Replace(TextIn, " ", "")
   While (Instr(ParseSpaces, " ")>0)
         ParseSpaces=Replace(ParseSpaces, " ","")
   Wend
   While (Instr(ParseSpaces,vbNewLine)>0)
       ParseSpaces=Replace(ParseSpaces, " ", "")
   Wend
   While (Instr(ParseSpaces, vbTab)>0)
       ParseSpaces=Replace(ParseSpaces, " ", "")
   Wend
   While (Instr(ParseSpaces, vbCr)>0)
       ParseSpaces=Replace(ParseSpaces, " ", "")
   Wend
End Function

I am getting invalid parameters and sometime different error. What should I do apart from calling this function? Do I need to make any changes in the setting?

I tried with ParseSpaces(sCont) also, no use.

Please help, its very urgent.
Thanks,
kishore