Add a VB parallel.forEach example