EXCEL-VBA：讀取UTF-8格式的文本文件

Function ReadUTF8File(ByVal FileName As String) As String  
    With CreateObject("ADODB.Stream")  
        .Type = 2    '讀取
        .Mode = 3 '讀寫模式
        .Open  
        .LoadFromFile FileName  
        .Charset = "UTF-8" '編碼格式
        .Position = 2  
        ReadUTF8File = .ReadText  
        .Close  
    End With  
End Function