VB6 讀取UTF-8文件 中文亂碼的問題

今天上班要寫一隻程式，要讀取XML文件，沒想到在讀取中文字時居然有亂碼的情形產生，搜尋了一下網路的文章，剛好有找到相關的解決方式!Post上來做個記錄!

Dim fs As New FileSystemObject
Dim txtFS As TextStream
Dim objStream As New ADODB.Stream

Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 2
objStream.Open
objStream.LoadFromFile FilePath 'FilePath為檔案路徑及檔案名稱
objStream.Charset = "UTF-8"
loadUTF8Temp = objStream.ReadText
Set txtFS = fs.CreateTextFile("Temp.txt") '建立一個Temp.txt檔轉存資料
txtFS.Write loadUTF8Temp
txtFS.Close
objStream.Close
Set objStream = Nothing