old Visual Basic Pork´ject but might at least give it a try