bom teste ai pois não testei aqui
Dim typTEXTO() As String
Dim NewReg As Integer
Dim Contador As Integer
Contador = 0
Open strTXT For Input As #1 'Abre o arquivo para leitura
Do While Not EOF(1)
contador = contador + 1
Line Input #1, s_Linha
sTexto = sTexto & s_Linha & VbCrLf
If Contador = 5 then
NewReg = NewReg + 1
ReDim Preserve typTEXTO(NewReg)
typTEXTO(NewReg) = sTexto
sTexto =""
contador = 0
End If
' O if abaixo é para pegar o restante do texto caso seja menor que 5
If Contador < 5 And sTexto <>"" then
NewReg = NewReg + 1
ReDim Preserve typTEXTO(NewReg)
typTEXTO(NewReg) = sTexto
sTexto =""
contador = 0
End If
Loop
Close #1
