Leer archivos Texto

[L1753T]

HOla amigos
Necesito capturar ciertas cadenas de varios archivos de texto, donde inicialmente buscaria ciertos caracteres y luego los valores que se ubican un par de lineas abajo, para prsteriormente almacenarlas en un txt o dbf
Por ejemplo

-------n lineas
Code: 01002
valor: 1000
value:1200
Sector: Alfa
valor: 1000
value:2200

--------n lineas

En este ejemplo ubicaria primero la palabra "code" y luego el dato que se encuentra 2 lineas abajo, es decir "1200"
Por el momento solo he creado el formulario, usado el control opendialog para levantar el archivo, pero hasta ahi nomas avance
Alguna sugerencia

Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
Dim strFileName As String
openFD.InitialDirectory = "C:\"
openFD.Title = "Abrir archivo de Texto"
openFD.Filter = "Archivos de Texto|*.txt|*.met|*.met"
openFD.ShowDialog()

strFileName = openFD.FileName
MsgBox(strFileName)

Dim objReader As New System.IO.StreamReader(strFileName)
TextBox1.Text = objReader.ReadToEnd
objReader.Close()