Predicate(Of T) in VB.NET

static Predicate<Car> ByYear(int year)
{
    return delegate(Car car)
    {
        return car.Year == year;
    };
}

static void Main(string[] args)
{
    // yeah, this bit is C# 3.0, but ignore it - it's just setting up the list.
    List<Car> list = new List<Car>
    {
        new Car { Year = 1940 },
        new Car { Year = 1965 },
        new Car { Year = 1973 },
        new Car { Year = 1999 }
    };
    var car99 = list.Find(ByYear(1999));
    var car65 = list.Find(ByYear(1965));

    Console.WriteLine(car99.Year);
    Console.WriteLine(car65.Year);
}

Private Shared Function ByYear(year As Integer) As Predicate(Of Car)
	Return Function(car As Car) car.Year = year
End Function

Private Shared Sub Main(args As String())
	' yeah, this bit is C# 3.0, but ignore it - it's just setting up the list.
	Dim list As New List(Of Car)() From { _
		New Car() With { _
			Key .Year = 1940 _
		}, _
		New Car() With { _
			Key .Year = 1965 _
		}, _
		New Car() With { _
			Key .Year = 1973 _
		}, _
		New Car() With { _
			Key .Year = 1999 _
		} _
	}
	Dim car99 = list.Find(ByYear(1999))
	Dim car65 = list.Find(ByYear(1965))

	Console.WriteLine(car99.Year)
	Console.WriteLine(car65.Year)
End Sub

public T Find( Predicate<T> match ) { 
	if( match == null ) 
	{ 
		ThrowHelper.ThrowArgumentNullException( ExceptionArgument.match );
	}
	Contract.EndContractBlock();

	for( int i = 0; i < _size; i++ ) 
	{
		if( match( _items[i] ) ) 
		{ 
			return _items[i];
		} 
	} 
	
	return default( T );
}