Translate formula and conversion into English

Project: Additional column for resources from a resource group

There is a formula on the German site that provides a formula that I am interested in but I have tried translating the conversion into English with Google but I cant quite get the VBA code right.

Doe anyone know how to translate this code as I want to assign pooled resources to teams so that when I see the Resource Usage I can see the custom field Role as well as within the resources assigned tasks see what stream the task is from ie training, testing etc

The page from the German site is attached