my $new_value = 110;
##VBA code: item = CType(model, IpfcModelItemOwner).GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "durchmesser1")
my $item = $model->GetItemByName(10,$ParamName);

##VBA code: CType(item, IpfcBaseParameter).Value = ((New CMpfcModelItem).CreateDoubleParamValue(new_value))
##PERL GEHT NICHT: my $my_CMpfcModelItem = Win32::OLE->new("pfcls.CMpfcModelItem"); # FelherM.: "Ung³ltige Klassenzeichenfolge
##PERL GEHT NICHT: my $my_CMpfcModelItem = Win32::OLE->new("CMpfcModelItem"); # FelherM.: "Ung³ltige Klassenzeichenfolge
##PERL GEHT NICHT: $item->Value = $model->CMpfcModelItem->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $model->CreateDoubleParamValue($new_value);  #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $session->CMpfcModelItem->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $session->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
$item->Value = ...???