Go4Expert - 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)