fileReader...

http://samples.gotdotnet.com/quickstart/howto/doc/anagrams.aspx

jow jow....

unction fileRead(ByVal value As String, ByVal fileName As String) As String

        Dim sr As StreamReader = File.OpenText(fileName)

        Dim str As String
        Dim al As ArrayList = New ArrayList()

        Do
            str = sr.ReadLine()

            If str <> Nothing Then
                al.Add(str)
            End If

        Loop Until str = Nothing

        str = ""
        Dim i As Integer
        For i = 0 To al.Count - 1 Step 1
            str = al.Item(i)
            If (str.Substring(0, value.Length) = value) Then
                Return str.Substring(value.Length + 1)
            End If
        Next

        Return "noEntry"

    End Function

Takker...