vb afdeling aangepast