Calculatin Minimum/Maximum Latitude and Longitude

This is actually pretty simple. Just create a new field and then calculate it using this code:

dim pGeom as IGeometry
set pGeom = [shape]

and set the field value to:

Output = pGeom.Envelope.XMin

More info here