Como importar texto específico de arquivos para o Excel?

Encontrei esse código por @ Scott Holtzman e preciso ajustá-lo um pouco para atender às minhas necessidades. Esse código pega cada linha em um arquivo de texto e as coloca em colunas separadas em uma planilha do Excel (A1, B1, C1 e assim por diante), cada arquivo de texto é armazenado em uma linha separada (1,2,3 e assim por diante). Primeiro, eu quero que ele coloque apenas texto na planilha do Excel se a linha começar com um texto específico, segundo, eu quero que ele copie apenas parte do texto de cada linha na planilha do Excel.

Sub ReadFilesIntoActiveSheet()

Dim fso As FileSystemObject
Dim folder As folder, file As file, FileText As TextStream
Dim TextLine As String, Items() As String
Dim i As Long, cl As Range

' Get a FileSystem object
Set fso = New FileSystemObject

' get the directory you want
Set folder = fso.GetFolder("D:\YourDirectory\")

Dim x As Long
x = 1 'to offset rows for each file

' Loop thru all files in the folder
For Each file In folder.Files

' set the starting point to write the data to
Set cl = ActiveSheet.Cells(x, 1)

' Open the file
Set FileText = file.OpenAsTextStream(ForReading)

Dim j As Long
j = 0 'to offset columsn for each line
' Read the file one line at a time
Do While Not FileText.AtEndOfStream

    TextLine = FileText.ReadLine 'read line

    cl.Offset(, j).Value = TextLine 'fill cell

    j = j + 1
Loop

' Clean up
FileText.Close

x = x + 1

Next file

Set FileText = Nothing
Set file = Nothing
Set folder = Nothing
Set fso = Nothing

End Sub

Aqui está a aparência dos meus arquivos de texto:

From:NameName           'want all text except the "FROM:"
Date:yyyy.mm.dd         'want all text except the "Date:"
Type: XXXXXXXXX         ' I don't want this line into excel
To: namename            ' I don't want this line into excel

----------------------------- xxxxxxx ---------------------
A1: Tnr xxxxxxxxxxxxx   'want all text except the "A1: Tnr" only next 13char
A2: texttext            'want all text except the "A2:"
An:                     'A1 and up to A14
A14: texttext           'want all text except the "A14:"  

------------------------------ xxxxxx ----------------------

Portanto, no total, existem 22 linhas no arquivo de texto.

E se for possível usar o FROM :, DATA :, A1: a A14: como cabeçalhos na primeira linha que seriam épicos.

tentei pesquisar meu caminho no google e tentei um pouco com isso:

TextLine =    FileText.ReadLine 'read line
If InStr(TextLine, "A1:") 

mas isso funciona apenas para uma linha e não consigo fazê-lo funcionar com várias linhas. Além disso, coloca a saída na célula F1, em vez de A1. acho que isso ocorre porque cada linha do documento de texto obtém uma célula - mesmo que nada seja escrito nela.