Veja se auxilia

Public Sub ImpArquivoTexto()
Dim Texto As String, Path As String
Dim L As Long        'linha de gravação

'altere para caminhonome onde seu arquivo está
Path = "D:lotofacil.txt"
'abre o arquivo texto para leitura.
Open Path For Input As #1
L = 2:  Cont = 1
'loop para percorrer todas as linhas do arquivo texto
Do While Not EOF(1)
   Line Input #1, Texto 'lê uma linha
   Cont = Cont + 1
    
    'Clean - remove caracteres não imprimíveis.
    'LTrim remove espaços a esquerda.
    Texto = WorksheetFunction.Clean(LTrim(Texto))
    'Separa a linha em termos separados por espaço
    separa = Split(Texto, " ")
    'Grava os termos nas celulas
    For x = 0 To UBound(separa)
        If x = 1 Then
            Cells(L, x + 1) = CDate(separa(x))
        Else
            Cells(L, x + 1) = separa(x)
        End If
    Next
    L = L + 1
Loop
Close #1 'fecha o arquivo texto
End Sub

Perfeito
era justamente isso que precisava.

Muito obrigado