Private store As List(Of Decimal) = New List(Of Decimal)

    store.add()
    store.Sort()
    Invoice()

    Sub Invoice()
        'Calling this sub method will always refresh the Invoice values
        LargeInvoice.Text = CType(store.Max, String)
        SmallInvoice.Text = CType(store.Min, String)
        If store.Count > 2 Then
            'List is already sorted getting the middle of array as int
            middle = CType((store.Count() / 2), Integer)
            'MsgBox("Middle = " & middle)
            MidInvoice.Text = CType(store(middle), String)
        End If
    End Sub