Create VB code