Nån som ser nått fel?

När jag kör denna kod så slutar allt att fuka, dem bara laddar i en evighet :(

Dim DbArray(0,0)

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oTextFil = oFSO.OpenTextFile(sDbFil)
	Do While Not oTextFil.AtEndOfStream
		p = p + 1
	Loop
oTextFil.Close : Set oTextFile = Nothing

ReDim DbArray(p,5)

Set oTextFil = oFSO.OpenTextFile(sDbFil)
	Do While Not oTextFil.AtEndOfStream
		x = x + 1
		sPost = Split(oTextFil.ReadLine, "|")
		For i = 0 To Ubound(sPost)
			DbArray(x,i) = sPost(i)
		Next
	Loop
oTextFil.Close : Set oTextFile = Nothing

Set oFSO = Nothing

Nån som har nått tips för att göra koden lite bättre, så den slipper loopa igenom filen två ggr? Tror att det är det som är felet..