Buscar informacion de archivo y traerla a un MsgBox

Hector no he podido

en parte si es un poco parecido lo que necesito , solo que lo que necesito
es que me traiga los importes que se encuentran escritos en los archivos,
pero estos archivos tienen diferentes layout cada uno diferente del otro.

ejemplo en el archivo
en la linea o espacio o fila hacia abajo 14, y en espacio linea o columna
175 tengo una informacion que necesito que me traiga con un msbox, te
pongo un pedazo del archivo

0000001438007163420030227

302001000001DLPROFUT2A 54
0007600000000000003600000000141099700000020030227000000000000

302002000001DLPROFUT2B 54
0007600000000000000100000000141099700000020030227000000000000

302501000001DLPROFUT2A 54
0007600000000000000100000000141099700000020030227000000000000

302502000001DLPROFUT2B 54
0007600000000000003600000000141099700000020030227000000000000
303000BONDE91030416 LP
00000000000000006500000000099896911000000006493299200000009995078900000000649680130000470000000000664589

3050000000863731145099772000000000314793500036400000000011713140001350000000865707766000006133112000000000037000001000000000037000001000006133112000000001411531000090115272000695



trate de modificar el archivo con esta opcion que me pusiste y no pude
hacer que funcionara, me podrias poner por favor como podria quedar.



2.- si quieres que el 'MsgBox' te muestre 'el contenido' [en lugar de la
'verificacion'] de 'esos' campos ...
sustituye la 'creacion' del mensaje ['entre' las lineas =>If L-N Linea
Then<= y => Verificado = True<=] por:
Mensaje = Mensaje & _
Mid(Temp, Sec1P1, Len(Secc1OK)) & String(2,
vbTab) &
_
Mid(Temp, Sec2P1, Len(Secc2OK)) & vbCr






Mensaje enviado desde http://grupos.buscadoc.org