Changed VBA

The VBA is now compiling correctly