Visual Basic - ayuda

Tengo un problema.

Private Sub Command1_Click()

Dim Cadena As String
Dim nF%
Dim tArray() As String
Dim s As Long

nF = FreeFile
Open "C:\lolo.txt" For Input As nF

Do While Not EOF(nF)

Input #nF, Cadena
s = Len(Cadena)
tArray = Split(Cadena)

For i = 0 To s
If tArray(i) <> "" Then
MsgBox tArray(i)
End If
Next i

Loop

Close nF
End Sub

tengo un fichero con 10 campos por fila, entre ellos hay bastantes espacios en blanco, pero solo me muestra la primera fila, solo me hace el for una vez y peta. sale esto:

El subindice esta fuera del intervalo.

me parece que peta solo cuando llega a i=100

Gracias.

Te recomiendo ejecutes tu aplicación con el depurador F8 para que vayas viendo qué valores toman las variables y puedas detectar el momento donde el subíndice se salga del intervalo.

Buen día... lo que queda de el....