Update basVBACommonCode