Private data As New List(Of Class1)()

Dim result As Class1 = data.OrderByDescending(Function(c) c.A).FirstOrDefault()