Problema con expresión lambda

Bien,estoy creando una función en la cual puedo buscar un elemento dentro de un arreglo de Clientes .Este es el código que tengo: Public Shared Function Buscar(ByVal ID As Integer) As cCliente Dim cliente As New cCliente cliente = aCliente.FirstOrDefault(Function(c As cCliente) _ c.ID = ID) Return cliente End Function Al ejecutarlo,me tira un error de 'Null reference' en la variable 'c',lo cuál es cierto ya que no la estoy inicializando. Lo que quiero saber,es como poder inicializarla,ya que no puedo poner 'as New' dentro de la función,ni puedo declararla fuera de la misma. Muchas gracias.