有可能写入的文件成Unix格式只有LF，不是vbCrlf。

Public Function f_ReadFileChar(ByVal FilePath As String, Optional Charset As String = "UTF-8") As String
    ' 读取 UTF-8 GB2312 等格式的文件内容
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Charset = Charset 'unicode|utf-8; Ascii; gb2312; big5; gbk
        .Open
        .LoadFromFile FilePath
        f_ReadFileChar = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function

Public Sub s_WriteFileChar(ByVal FilePath As String, ByVal Content As String, Optional Charset As String = "UTF-8")
    ' 写入 UTF-8 GB2312 等格式的文件内容
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Charset = Charset 'unicode|utf-8; Ascii; gb2312; big5; gbk
        .Open
        .WriteText Content
        .SaveToFile FilePath, 2    ' 2 表示覆盖现有文件
        .Close
    End With
    Set objStream = Nothing
End Sub