[VbNet] Dividere un file di testo molto grande

[oregon]

Più o meno ...

Scrivi il codice e ne riparliamo ... il diavolo sta nei dettagli ...

[deamon75]

Più o meno ...
Scrivi il codice e ne riparliamo ... il diavolo sta nei dettagli ...

Private Function FunzioneX()
        Dim TxtLine As String
        FileOpen(1, "C:\Users\Utente\Desktop\file.dat", OpenMode.Input)
        Do While Not EOF(1)
            If LineInput(1).StartsWith("Questa parola") Then
                FunzionePrima(lineinput(1)) '<-- Più o meno
            Else
                FunzioneSeconda(lineinput(1)) '<-- Più o meno
            End If
        Loop
        FileClose(1)
        Return True
    End Function

Grossomodo è cosi giusto? oppure la struttura è errata?
Ovviamente metterò un parametro alla funzione principale il quale passa il file selezionato tramite openfiledialog