打印文本时用“â”代替“€”

Question

我制作了一个程序，可以将某些内容打印到.doc文件中。当我打印字符€时，它会打印€。

我该如何正确地做到这一点？

这是我的代码

Dim model As String = (Application.StartupPath & "\draft.doc")
Dim text = System.IO.File.ReadAllText(model)
text = text.Replace("[IMP3]", "€")


'I use this code to save the file
 If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
            System.IO.File.WriteAllText(Save.FileName, text)
 End If