VB6 adjustments now working on this version