Sub test25()
Dim FSO As Object, TextFile As Object, buf As String
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:\Work\Sample.txtを開いて内容を表示します
Set TextFile = FSO.OpenTextFile("C:\Work\Sample.txt")
buf = TextFile.ReadAll
MsgBox buf
Set TextFile = Nothing
Set FSO = Nothing
End Sub