Work continues... VB script update