update vbcode

update vbcode