excel vba でファイルを一気に読み込む

Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim f As file
Set f = fso.GetFile("c:\hoge.json") ' ファイルを取得

Dim JsonText As String
JsonText = f.OpenAsTextStream.ReadAll