Once you find the part, wlak through the part properties, here is a screenshot from my VB6 session. You can see the parts Ref Des starts with an "R" so I walk though the Properties until I get the Name "Value" Then I get the Value. Confusing if your not using the debugger in Excel or VB6.
Dim comp 'As Component
Dim comps 'As Components
Set comps = pcbDoc.Components(epcbSelectAll)
For Each comp In comps
If Left(comp.RefDes, 1) = "R" Then
Set props = comp.Properties
For Each prop In props
If prop.Name = "Value" Then
If prop.Value < 100 Then
comp.Selected = True
Thanks Kendall! You make it look so simple. Appreciate you taking the time...
No problem Flathead, I'll convert you to direct injection diesel soon enough.