Create vbshell