Microsoft ActiveX Data Object Library (Stream)

Stream オブジェクトを使用して、バイナリデータまたはテキストデータを読み込むことができます。

「ツール」-「参照設定」-「Microsoft ActiveX Data Objects x.x Library」にチェックを入れて、OKします。
複数のバージョンがありますが、詳細は分からないので最新と思われる 6.1 にチェックしてます。
（詳細は ADO History – ActiveX Data Objects (ADO) を参照してください）

【ADO Streamを使用した場合】

' ------------------------------------------------------------
' 説明：テキストファイルを一括読み込み
' 引数：1:読み込むファイル名
'       2:文字コード(処置気はShift-JIS)
' 戻値：読み込んだテキスト文字
' 補足：文字コード
'       UTF-8 (BOM あり/なし) = "UTF-8"
'       UTF-16LE (BOM あり/なし) = "UTF-16"
'       UTF-16BE (BOM あり) = "UTF-16"  ※BOMなしは文字化けする
' ------------------------------------------------------------
Function TextFileBulkRead(filename As String, Optional charcode As String = "SHIFT_JIS") As String

    Dim buf As String
    Dim adoStream As ADODB.Stream
    Set adoStream = New ADODB.Stream
    
    If IsFileExists(filename) = False Then
        MsgBox "ファイルがありません"
        Exit Function
    End If
    
    With adoStream
        .Charset = charcode
        .Open
        .LoadFromFile filename
        buf = .ReadText
        .Close
    End With

    TextFileBulkRead = buf

End Function

参照設定を使用するメリットは、Stream オブジェクトのメソッドとプロパティが表示されることと、以下のような設定値が使用できるようになります。
SaveOptionsEnum (Access desktop database reference)