VBA打开文本文件时出现语法错误，请大侠指教

大奇67465

Dim myPath,str
    Dim fso, ftxt, rtxt

    myPath ="c:\p\苹果2024112.txt"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ftxt = fso.GetFile(myPath)      '//读取Txt
运行时，上面这行提示语法错误
    Set rtxt = ftxt.OpenAsTextStream(ForReading, TristateUseDefault)
        str = rtxt.ReadLine
        MsgBox str              '显示读取到的文件
        rtxt.Close
        
    Set fso = Nothing
    Set ftxt = Nothing
    Set rtxt = Nothing

技术006

排查文件路径是否正确。以及文本的字符编码，vb的字符编码只支持ASCII编码，utf8不支持


ForReading, TristateUseDefault,没有定义，并且没有变量值。
Set rtxt = ftxt.OpenAsTextStream(1, -2)