Dim Part, FeederType
If Library.FindPart (Recipe.Placements(0).PlacementPart.Part.Name, Part) Then
   FeederType = Part.Value ("FEEDERWIDTH", "Default value goes here")
   MsgBox "Feeder type: " & FeederType
End If