updated netcreditVB script