Respondiendo a una consulta sobre el anterior post de como sacar promedios de cadenas representando valores numéricos y provenientes de una lista, ‘combobox’ o cualquier otro origen en texto :

Dim Consumo As Integer = 0
Dim Consumos = {«10», «11», «21», «31», «41»}
Console.WriteLine((Array.ConvertAll(Consumos,
                                    Function(s) If(Integer.TryParse(s, Consumo), Consumo,
                                                   New Integer))).Average)

Espero que os sea practico,
Pep Lluis,