Ciao
Puoi usare la funzione StreamReader.ReadLine per leggere il file una riga alla volta, in questo modo:
' Il nome del file da leggere
Dim flname As String = "C:\file.txt"
' La variabile che legge le righe dal file
Dim strinput As String
' Lo StreamReader con cui leggere il file
Using fsreader As New StreamReader(flname)
' Legge righe dal file fino alla fine del file
strinput = fsreader.ReadLine()
While strinput IsNot Nothing
Select Case strinput
Case "pippo"
' Qualcosa
Case "pluto"
' Qualcos'altro
End Select
strinput = fsreader.ReadLine()
End While
End Using
Luca