Dim Lst() As Double = {23.3, 33.44, 80, 77.5} Dim Aver = Aggregate c In Lst Into Average() Me.Text = Aver