AutoCAD VB :: How To Reach 3D Object Volume With Solid Selection

I can use SolidSelection.Item  for 3D object's handles and but I can't take 3D object's volumes with SolidSelection.

Then I can put object 's handles(1EE) to a collection.  Can I use SolidSelection to keep my 3D volumes values? All sub-structure of my program works with SolidSelection Object.

Volume Codes;

For Each tEnt In ThisDrawing.ModelSpace
If TypeOf tEnt Is Acad3DSolid Then
Dim tEntSolid As Acad3DSolid
Set tEntSolid = tEnt
tmpVols1.Add (tEntSolid.Handle & "/" & tEntSolid.Volume)
End If
Next

I can't match with returned result of  these codes and SolidSelection.item(i)

For Each tEnt In ThisDrawing.ModelSpace
If TypeOf tEnt Is Acad3DSolid Then
Dim tEntSolid As Acad3DSolid
Set tEntSolid = tEnt
tmpVols1.Add (tEntSolid.Handle & "/" & tEntSolid.Volume)
[code]......