make a loop in Option value

Hello ,

in Job table i have Field MS Project Type

Field No. Field Name Data Type Length Description
50042 MS Project Type Option

The option value are :
,Admin,Co-Funding,Consulting,Continuous Improvements,Customer PO- Integration,.........ect


how to make a loop instead ?

ListTypeProject:=ListTypeProject + FORMAT(recJobs."MS Project Type"::Admin) ;
ListTypeProject:=ListTypeProject +',' + FORMAT(recJobs."MS Project Type"::"Co-Funding");
ListTypeProject:=ListTypeProject +',' + FORMAT(recJobs."MS Project Type"::Consulting);
ListTypeProject:=ListTypeProject +',' + FORMAT(recJobs."MS Project Type"::"Continuous Improvements");
ListTypeProject:=ListTypeProject +',' + FORMAT(recJobs."MS Project Type"::"Customer PO- Integration");

Thanks
Mounir Haroun