Convert Manual to Automatic VB

continued