erro no FSO

Olá, estou precisando gravar em um arquivo, no entanto, após abrir com o fso, busco uma função, e dentro dela é que está o comando WriteLine, mas não funciona. Como contornar?

Função que grava o arquivo:

Sub GeraArquivo(prefixo, nomearquivo)

On Error Resume Next
sFolder = ""
sFn = (prefixo, & "_" & nomearquivo & ".txt"
Set fso = Server.Createobject("Scripting.FileSystemObject")
bWriteHeader = Not fso.FileExists(Server.MapPath(sFolder & sFn))
Set ArquivoTxt = fso.OpenTextFile(Server.MapPath(sFolder & sFn), 8, True)
If bWriteHeader Then
call geraCabecalho
End If
Call geraLinhas

ArquivoTxt.Close
Set ArquivoTxt = Nothing
Set fso = Nothing
End Sub

call GeraArquivo("cidade", "contratos")

Função que puxa os dados:

Public Sub geraLinhas()
Dim html
html = "001"
html = html & "9999"
html = html & "9"
html = html & preenche(9, true)
html = html & ""
html = html & ""
html = html & ""
html = html & preenche(205, true)
'aqui era para escrever no arquivo que já está aberto pela funcao GeraArquivos
ArquivoTxt.WriteLine(html)
End Sub
A função cria o arquivo (caso ele não exista), mas fica em branco, a função não consegue popular o arquivo txt...

Se alguem tiver dicas, agradeço!