Create CreateDefect.vbs

This code is broken now will fix