excel - VB6 - Excel ファイルを完全に読み取れない

Question

どの方法を試しても (現在 Scripting.FileSystemObject を使用しています)、この XLS ファイルを正しく読み取ることができません。これが私のコードです（セルを読みたくない、ファイルをテキストファイルのように読みたい）

Dim fso As New FileSystemObject
Dim f As File
Dim fsoStream As TextStream
Dim strLine As String
Set f = fso.GetFile("C:\Users\Admin\Desktop\ara\DOSYA.xls")

Set fsoStream = f.OpenAsTextStream(ForReading)

Do While Not fsoStream.AtEndOfStream
     strLine = fsoStream.ReadLine
     Text1.Text = Text1.Text & strLine
Loop

fsoStream.Close
Set fsoStream = Nothing
Set f = Nothing
Set fso = Nothing

私が得ているのは、ファイルの最初の 5 ～ 6 文字と、もう少し意味不明な文字だけです。エクセルで開くとうまくいきます。