'第1
Public Function ByteOpenFile(FilePath As String) As String
    Dim tmp() As Byte
    Open FilePath For Binary As #1
    ReDim tmp(LOF(1) - 1)
    Get #1, , tmp
    ByteOpenFile = StrConv(tmp, vbUnicode)
    Close #1
End Function
'第2
Public Function InBOpenFile(FilePath As String) As String
    Open FilePath For Input As #1
    InBOpenFile = StrConv(InputB$(LOF(1), 1), vbUnicode)
    Close #1
End Function
'第3
Public Function FsoOpenFile(FilePath As String) As String
    Dim Fso As Object
    Dim Txts As Object
    Const FORREADING = 1
    Const TRISTATEUSEDEFAULT = -2
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Txts = Fso.OpenTextFile(FilePath, FORREADING, False, TRISTATEUSEDEFAULT)
    FsoOpenFile = Txts.ReadAll
    Txts.Close
    Set Fso = Nothing
    Set Txts = Nothing
End Function
'第4
Public Function InOpenFile(FilePath As String) As String
    Open FilePath For Binary As #1
    InOpenFile = Input$(LOF(1), 1)
    Close #1
End Function
'第5
Public Function OpenFile(FilePath As String) As String
    Dim inTxt$, Temp$
    Open FilePath For Input As #1
    Do Until EOF(1)
        Line Input #1, Temp
        inTxt = inTxt & Temp & vbCrLf
    Loop
    OpenFile = inTxt
    Close #1
End Function