複数のHTMLファイルを一括処理でEXCELへインポートしたいのですが、どのようにしたらいいのでしょうか？

VBAで挑戦してみたのですがエラーがでて上手くできません。
OpenTextFileのところでファイルが見つからないと出てしまいます。
何がおかしいと思われるでしょうか？

Sub HTMLインポート()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myFiles As Variant
Dim myFile As Variant
Dim myTextFile As TextStream
Dim i As Integer
Set myFolder = myFSO.GetFolder("★フォルダパス")
Set myFiles = myFolder.Files
i = 3
For Each myFile In myFiles
Cells(i, 1).Value = myFile.Name
Set myTextFile = myFSO.OpenTextFile("myFile, 1, -1")
Cells(i, 2).Value = myTextFile.ReadAll
i = i + 1
Next
End Sub

＞myFSO.OpenTextFile("myFile, 1, -1")
これでは「myFile, 1, -1」というファイル名を開こうとします。
この場合、myFileはFileオブジェクトなので、FileSystemObjectを使わなくても開けます。
「myFile.OpenAsTextStream(1, -1)」
としてください。
http://officetanaka.net/excel/vba/filesystemobject/file16.htm