把文字檔的某些字給置換掉

'======把文字檔的某些字給置換掉=======
'========先讀出來
Dim file As New System.IO.StreamReader(Server.MapPath("") & "\Files\Test.Text", Encoding.GetEncoding("big5"))
Dim words = file.ReadToEnd()
file.Close()

'========再重新寫回
Dim file1 As New System.IO.StreamWriter(Server.MapPath("") & "\Files\Test.Text", False, Encoding.GetEncoding("big5"))
words = Replace(words, "小明", "大呆") '就是這裡啦~ 會把內容為"小明"的字換成"大呆"
file1.Write(words)
file1.Flush()
file1.Close()