Editar TXT

[Darhas]

Hola a todos y antes de nada gracias de ante mano

Bueno, os explico mi problema, quiero editar ciertas lineas de un TXT pero no hay manera, siempre que lo hago con este código me borra el TXT y no graba nada.
Si le pido que muestre las variables por pantalla me las muestra bien, asi que no se porque no graba nada y encima borra el TXT.
Los valores los quiero editar en ciertas lineas concretas del TXT. Estos valores que quiero introducir en el TXT los que recibo de unos TEXTAREA de la página anterior, de ahi la en la Funcion TEXTAREA. Lo de los SALTOS es las veces que debe saltar de linea para editar la linea deseada.
------------------------------------------------------------------
Function EscribirConfiguracion(saltos, TEXTAREA)
set FSO = CreateObject ("Scripting.FileSystemObject")
set oFich = FSO.OpenTextFile("c:\Inetpub\wwwroot\prueba\config uracion.txt",2)
a = 0
Do While not (a = saltos)
If ( a = saltos) then
' oFich.Writeline(TEXTAREA) HE PROBADO CON LOS 2 Y HACE LO MISMO
oFich.Write(TEXTAREA) HE PROBADO CON LOS 2 Y HACE LO MISMO

End If
a = a + 1
Loop
oFich.Close
set oFich = Nothing
End Function


saltos = 3
a = EscribirConfiguracion(saltos, TEXTAREA1)
---------------------------------------------------------

Pues eso, que si alguien puede ayudarme se lo agradeceré en el alma.
Un abrazo
Darhas