Create GenerateNames.vb