Dim Find As IEnumerable(Of rowZ0802)
For Each C As clsZ0811Core In UNT.Cores
   Find = Z0802.Where(Function(n) n.OP8_ID=OP8_ID And n.MIX_ID=C.COR__MIX_ID And n.GSS=C.COR_GSS And n.VESMIN<C.COR_MASSA And n.VESMAX>=C.COR_MASSA)
   If Find.Count > 0 Then
       dblNorma += Find(0).NORMA * C.COR_COLC
   End If
Next

Dim Find As IEnumerable(Of rowZ0802)
Dim CC As clsZ0811Core
For Each C As clsZ0811Core In UNT.Cores
   CC = C
   Find = Z0802.Where(Function(n) n.OP8_ID=OP8_ID And n.MIX_ID=CC.COR__MIX_ID And n.GSS=CC.COR_GSS And n.VESMIN<CC.COR_MASSA And n.VESMAX>=CC.COR_MASSA)
   If Find.Count > 0 Then
       dblNorma += Find(0).NORMA * C.COR_COLC
   End If
Next