VB2005: Getting specific data from file(s)

Could someone, please, show me a sample code to:
Open a file
load a specific data entry from the file
Use the data in an If then statement
Close file

Code:

Dim strinput As String = ""
Dim split() As String
'other appropriate dims
FileOpen(1, Application.StartupPath & "\preferences.txt", OpenMode.Input)
'find & load "Level = "

Input(1, strinput)
split = strinput.Split("=")

If (string) = "Level = 3" then
~~~bla bla bla
End if
FileClose(1)