[Vb]Usare variabili di un txt

' 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