VBA读取文本文件

Dim txtLine
Dim FileObj
Dim TextObj
Dim FilePathFilePath = "C:\text1.txt"
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.OpenTextFile(FilePath)
Do While Not TextObj.AtEndOfLine
txtLine = txtLine & Trim(TextObj.ReadLine)
Loop
MsgBox txtLine

读取utf-8格式会乱码，将文本文件另存为assii码格式
当前路径

strPath & "\" & strFilter