Pq nao rola acento?

[tiagoborges.net 0]

fncGravaArquivo("teste.txt","Sei lá, mas não rola acentos, alguém sabe, çãõáéíóú")Function fncGravaArquivo(vArquivo,vText)   Set ObjFile = CreateObject("Scripting.FileSystemObject")	   Set vTextFile = ObjFile.CreateTextFile(vArquivo, True)		vTextFile.Write vText		vTextFile.Close	   Set vTextFile = Nothing   Set ObjFile = Nothing End Function

Como faço pra gravar acento?

[ultra 0]

Copiei seu código e rodei aqui..... foi normal com acento e tudo