ต้องการหาค่าเฉลี่ยของ column ใน datatable แนะนำด้วยครับ

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GridViewData()
    End Sub

Private Sub AddToTable()
        Dim dr As DataRow = dt.NewRow
        Dim avgwidth, avghigh As Decimal

        dr("ชื่อ") = txtName.Text.Trim
        dr("น้ำหนัก") = txtWidth.Text.Trim
        dr("ส่วนสูง") = txtHigh.Text.Trim

'ติดตรงนี้ครับ
        avgwidth = ค่าเฉลี่ย(dr("น้ำหนัก"))
        avghigh = ค่าเฉลี่ย(dr("ส่วนสูง"))

        dr("น้ำหนักเฉลี่ย") = avgwidth
        dr("ส่วนสูงเฉลี่ย") = avghigh

        dt.Rows.Add(dr)
        Session("Table") = dt
        GridViewData()
        txtName.Text = ""
        txtWidth.Text = ""
        txtHigh.Text = ""
    End Sub

Private Sub GridViewData()
        If IsNothing(Session("Table")) Then
            dt = New DataTable()
            dt.Columns.Add(New DataColumn("ชื่อ", GetType(String)))
            dt.Columns.Add(New DataColumn("น้ำหนัก", GetType(String)))
            dt.Columns.Add(New DataColumn("ส่วนสูง", GetType(String)))
            dt.Columns.Add(New DataColumn("น้ำหนักเฉลี่ย", GetType(String)))
            dt.Columns.Add(New DataColumn("ส่วนสูงเฉลี่ย", GetType(String)))
            Session("Table") = dt
        End If

        dt = DirectCast(Session("Table"), DataTable)
        gvData.DataSource = dt
        gvData.DataBind()
    End Sub

Protected Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        AddToTable()
    End Sub