想做一个统计当前表选定区域的累积值的按钮，在帮助上看到一串代码，试了一下，不好用，求大虾们帮忙

Dim Sum As Double
With CurrentTable
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
OutPut.Show(Sum)

 代码我测试没问题，你说的不计算指什么？截图或者实例说明。

比如制做一个区域的累积值的按钮在窗口里，窗口里有一个table表，制做完按钮，事件里输入上面的代码，测试时，选择table表里的数据，再按累积值的按钮，没有输出累积值 ，想让得出的累积值输出在一个textbox里，应该怎么写代码

Dim Sum As Double
With CurrentTable
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
msgbox(sum)

e.Form.Controls("TextBox1").Text = sum