VBA-函数不向子过程返回值

Question

我有一个小的VBA程序来计算矩形的面积。 使用单元格B2和B3中的值，我从子过程调用了一个函数矩形。我期望在函数中计算一个区域并返回到子过程。在我的情况下它没有发生。那是为什么？

Sub Button1_Click()
    Dim result As Integer
    a = Cells(2, "B").Value
    b = Range("B3").Value
    result = rectangle(a, b)
    MsgBox ("area of rectangle is " & result)
End Sub

Function rectangle(ByVal a As Integer, ByVal b As Integer) As Integer
    Dim area As Integer
    area = a * b
End Function