VBAでSHIFT-JISのテキストを読み込む

Public Function ReadSJISText(isFileName As String) As String

    Dim bytArray()     As Byte
    Dim intFileNo       As Integer
    Dim lngFileLenB  As Long

    'バイト配列の容量を確保する
    lngFileLenB = FileLen(isFileName)
    ReDim bytArray(lngFileLenB - 1)

    '使用可能なファイル番号を取得する
    intFileNo = FreeFile

    'ファイルをバイナリモードで開く
    Open isFileName For Binary As #intFileNo

    'バイナリデータとして読込んで…
    Get #intFileNo, , bytArray
    Close #intFileNo

    'Unicodeに変換して表示
    ReadSJISText= StrConv(bytArray, vbUnicode)

End Function