Visual Basic - SI ALGUIEN TIENE UN PROBLEMA COMO EL MIO AYUDAAAAA

vengo preguntando sobre el punto ini pero nadie me da el resultado
buenop ahora me dicen quelo mandan del autocad y lo convierten en un punto inilo mio es lo siguienete lo que deseo saber como puedo extraer informacion de un punto ini este es el ejemplo que me dieron del pùnto ini levanto las ptrimereas lineas pero las otras no puedo

PN: 234
SR:B456
ON:23
ON:34
ON:56
PN: 123
SR:B869
ON:96
ON:32
ON:74
PN: 789
SR:A456
ON:83
ON:39
ON:98

ENTONCES LAS PRIMERAS LINEAS SI LAS CARGO PERO DESPUES LAS OTRAS LINEAS NO LOGRO CAPTURAR ESO ES LO QUE ME FALTA SI ALGUIEN TINE UN PROBLEMA COMO ESTE PORFAVOR AYUDENME

Private Sub LeerIni()
Dim ArchivoIni$, MiArchivo$, linea$, Longitud As Integer
ArchivoIni = "C:\MiArchivo.ini"
If ArchivoIni = "" Then Exit Sub
FileCopy ArchivoIni, App.Path & "\MiArchivo.ini"
Open ArchivoIni For Input As #1
Line Input #1, linea
Open App.Path & "\MiArchivo.ini" For Output As #2
Do While Not EOF(1)
Line Input #1, linea
Longitud = Len(linea)
Print #2, Space(Longitud)
Loop
Close
En Sub

Espero te sirva.
Pere