为何读取资源文件的文本文件时只能读取英文和数字，中文却无法正常显示？（代码如下）

Option Explicit

Private Sub Form_Load()
Dim Temp As String    '定义用于联合文本文件中所有字符的String类型变量
Dim s() As Byte        '定义用于储放资源文件中文本文件内容的Byte类型变量
Dim k As Variant        '宝义用于读取资源文件中文本文件内容的Variant类型变量
s = LoadResData(101, "CUSTOM")    '将资源文件中的文本文件的首地址赋给s
    For Each k In s
        Temp = Temp + Chr(k)
    Next
Text1.Text = Temp
End Sub

'上述代码经调试，为何只能显示英文不能正常显示中文？
'有何解决方法，请高手指点？