OpenSTAAD Get Area Of Plate

I want to get the area of plates in a folded plate model one by one using OpenSTAAD macro in MVB. I wrote:

'Launch OpenSTAAD Object.
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
pnPlates = objOpenSTAAD.Geometry.GetPlateCount()

pdAreaCLT_Total = 0
For i = 1 To pnPlates_CLT
pdArea = objOpenSTAAD.Geometry.GetAreaOfPlate i, pdArea
pdAreaCLT_Total = pdAreaCLT_Total + pdArea

Here, I can get the total number of plates but not the area of each plate. What is my error?

I have tried different syntax such as:

pdArea = objOpenSTAAD.Geometry.GetAreaOfPlate i   -------> the statement doesn't seem to end

pdArea = objOpenSTAAD.Geometry.GetAreaOfPlate ()  -------> the i is missed here

pdArea = objOpenSTAAD.Properties.GetAreaOfPlate i, pdArea   ----------> is this parameter considered as properties?

None of above has worked.