speed up the VB part
run intro.rmd