Vlookup table to find email addresses

So you have 40 snippets of code such as below...populating the listbox with each checkbox having a unique name...

(If ckboxBuilderswork.Value = True Then lboBuilderswork.List = Array("Trade1", "Trade2", "Trade3")