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

##</code><code>##

my ($Part, $FeederType);
for my $placement (in $Recipe->Placements)
{
    if $Library->FindPart($placement->PlacementPart->Part->Name, $Part)
    {
         $FeederType = $Part->Value("FEEDERWIDTH", ""); 
    }
}