Abrir pequenho TXT (430Mb)

Alguém já tento abrir um TXT deste tamanho?????

na verdade este tt é um log que preciso estar importando para um banco, quando fui fazer a tal importação, vi q o tamanho fico além do que imaginava....

como posso fazer isso agora, a rotina q uso é a seguinte

arq = "d:\Projects\LOG\Log3.txt"

n = FreeFile()
Open arq For Input As #n
conteúdo = Input(LOF(n), n)
Close #n

linhas = Split(conteúdo, vbCrLf)
tt = UBound(linhas) - 1

For i = 0 To UBound(linhas) - 1
DoEvents
Me.Caption = i & "/" & tt
Data = Mid(linhas(i), 1, 25)
Data = Format(Data, "dd/mm/yyyy")
resto = Mid(linhas(i), 28, 999)
Desc = Split(resto, " ")
List1.AddItem Replace(Data & " | " & Replace(Desc(7), "IP:'", "") & " | " & Replace(Desc(9), "Website:'", "") & " | " & Replace(Desc(10), "URL:'", ""), "'", "")
Next
neste caso usei a lista como destino, mas isso vai para um banco mesmo...

se alguém souber ou puder me ajudar fico grato