C# / VB.NET - Ricerca in file di testo

Buongiorno, scusate l'ignoranza ma sono un newbie con vb.net. Ho il seguente problema. Dovrei riuscire ad aprire un file di testo (e fino a qui tutto ok) che è composto da molte stringhe le quali iniziano tutte per un numero di 4 cifre. Io dovrei inserire detto numero in un'imput box (gia fatto) e ricercare tutte le stringhe che iniziano con questo valore, estrapolarle e creare quindi un nuovo file di testo che contenga solo le stringhe con il codice cercato. Un grazie in anticipo a chi vorrà aiutarmi.

ciao! io faccio in questo modo che secondo me è il piu facile e flessibile...
allora premettendo di aver riempito prima un file di testo (nomi.txt) ora ricerco i valori.
è importante che esista un solo valore per ogni riga..
io ho 2 campi record (nome e cognome)
in questa form c è una listbox (lsttrov), una textbox per inseirire il valore da ricercare(txtcerca) e un bottone "Vai" (Button2)

Public Class Form4
    Public c, n As String

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lsttrov.MultiColumn = True
    End Sub


'bottone chiudi
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'apro il file
        FileOpen(1, "nome.txt", OpenMode.Input, OpenAccess.Read)

'eseguo una ricerca fino a EOF (end of file)
        While Not EOF(1)
            c = LineInput(1)
            n = LineInput(1)
            If c = txtcerca.Text Then
                lsttrov.Items.Add(c & vbTab & n)
            End If
        End While
        FileClose(1)
    End Sub


'si possono eseguire piu ricerche perche il 
'fileopen e il fileclose sono dentro al button2
'e i valori sono aggiunti in coda nella listbox
'con la sub seguente viene svuotata


    Private Sub btnvuota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvuota.Click
        lsttrov.Items.Clear()
    End Sub
End Class

spero ti possa essere utile..se hai bisogno chiedi pure o manda anche una mail!

ti ringrazio per l'aiuto, ho fatto tutto come dici tu ma ricevo un errore, ora ti invio una mail. Grazie.