Dim dblArea為double
把pArea當成IArea
Set pArea = [shape]
dblArea = pArea.area
不建議使用Output之類的名稱作為變量名，這樣容易重復系統的默認參數，造成問題。