Arquivo Texto

estou genrando um arquivo de log ao inciar o sistema com esse codigo: If Dir(App.Path & "\" & Dia & ".log") = "" Then Set ArqLog = Fso.CreateTextFile(Dia & ".log", True)Else Set ArqLog = Fso.OpenTextFile(Dia & ".log", ForWriting, True)End IfWith ArqLog .WriteLine ("SISTEMA ACESSADOS NA MAQUINA " & PCName) .Write (" ÀS: " & Time & " NO DIA " & Date) .Write (" PELO OPERADOR: " & Login.TxtUser.Text) .CloseEnd WithSet ArqLog = Nothinge quando vou abrir o arquivo texto, aparece os seguintes caracteres:䥓呓䵅⁁䍁卅䅓佄⁓䅎䴠允䥕䅎䘠剅䅎䑎O†††ഠ 叀›㜱㐺㨲㠴丠⁏䥄⁁㔲〯⼳〲㔰倠䱅⁏偏剅䑁剏›䕆乒乁佄o que pode esta ssaindo de errado ?Por favor me ajudem, obrigado