Dim Stream = New IO.StreamReader("C:\test.ini")
Dim Lines() as string = Stream.ReadToEnd.Split("<")

  for each line as string in Lines 
    if( line.StartsWith( BrCode ) ) then
     return GetToken( line )
    end if
  end for

  private function GetToken( byval line as string )as string
    Dim Lines() as string = line.split(vbcr)
    for each...... ' nach +Token suchen
  end function