Pq nao rola acento?

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?