I feel like this should work, its in C#.
VDView is the ActiveView of the ViewDraw Application.
ViewDraw.IVdObjs pins = VDView.Query(ViewDraw.VdObjectTypeMask.VDM_COMPPIN, ViewDraw.VdAllOrSelected.VD_ALL);
for (int z = 1; z <= pins.Count; z++)
ViewDraw.ComponentPin p = pins.Item(z);
Thanks. I was missing the CompPin.pin portion. Below is a snippet from my final vbs code
For Each objCn in objCp.GetConnections()
Set cPin = objCn.CompPin
Set cNet = objCn.Net
If Not cNet Is Nothing Then
net = objCn.Net.GetConnectedNetName(objCn.Segment)
set oAttr = cPin.pin.FindAttribute("Pin Type")
If oAttr Is Nothing Then
pinType = "NONE"
pinType = oAttr.EitherValue()