Hente fra en text fil

Kode 

On Error GoTo Fejl
     Dim fil As String
     fil = My.Computer.FileSystem.ReadAllText("C:\\test.txt")
     Dim SplitFile As Array = Split(fil, vbCrLf)

     For Each FilText As String In SplitFile
         If FilText = "vis-billede = 1" Then
            pict.lbl = "1"
         End If
         'Så kan du bare lave flere If sætninger for alle
         'de værdier der skal blive tjekket. 
     Next
Fejl:
        'Intet sker

Slet ingen der kan hjælpe?

Kode 

     Dim SplitFile As Array = Split(fil, vbCrLf)

     For Each FilText As String In SplitFile