How to determine whether a polygon is a ring or an eye

Private sub uibuttoncontrol2_click ()

Dim app as iapplication
Set APP = Application

Dim pmxdocument as imxdocument
Set pmxdocument = application. Document

Dim pmap as IMAP
Set pmap = pmxdocument. focusmap

Dim pfeaturelayer as ifeaturelayer
Set pfeaturelayer = pmap. layer (0)

Dim pfeaturecursor as ifeaturecursor
Set pfeaturecursor = pfeaturelayer. featureclass. Search (nothing, false)

Dim pfeature as ifeature
Set pfeature = pfeaturecursor. nextfeature

Dim ppolygon as ipolympus gon
Dim geocollection as igeometrycollection
Dim Pring as iring
Dim inringcount as integer

While not pfeature is nothing
Set ppolygon = pfeature. Shape
Set geocollection = ppolygon

If geocollection. geometrycount> 1 then
Inringcount = inringcount + 1
Pmap. selectfeature pfeaturelayer, pfeature
End if

'If ppolygon. exteriorringcount> 1 then
'Pmap. selectfeature pfeaturelayer, pfeature
'End if
 
'If ppolygon. exteriorringcount = 1 then
'Set ppointcollection = ppolygon
'Set Pring = ppointcollection
'Initingcount = ppolygon. interiorringcount (Pring)
'If inringcount> 0 then
'Pmap. selectfeature pfeaturelayer, pfeature
'End if
'End if

Set pfeature = pfeaturecursor. nextfeature
Wend

Dim pactiveview as iactiveview
Set pactiveview = pmap
Pactiveview. Refresh
Msgbox "Total" & inringcount & "irregular polygon"

End sub