Ler linha por linha de um txt

[Elbrinner 0]

Como posso fazer para ler linha por linha de um txt?Eu preciso ler do primeiro registro ao ultimo, vou ter um txt nesse formato:24561234114preciso pegar de uma forma da qual saiba qual é o primeiro registro.

[Elbrinner 0]

Estou fazendo assim, creio q funciona Dim Arq As New System.IO.StreamReader(objStream) Do linha = Arq.ReadLine() txttexto.Text = txttexto.Text & linha & vbCrLf contador = contador + 1 Loop Until (linha Is Nothing)