2,892 questions
Something like this should work:
Dim mydata as List(Of MyClass) = . . .
Dim value as Integer = 100
Dim found_object as MyClass = mydata.FirstOrDefault(Function(d) value >= d.VMin AndAlso value <= d.Vmax)
If found_object IsNot Nothing Then
Dim P1 = found_object.P1
Dim P2 = found_object.P2
Dim P3 = found_object.P3
Dim P4 = found_object.P4
. . .
End If
Can be adjusted according to your real classes.