An if loop cannot be written inside the string build with quotes.
Try without the quotes as follows -
If ( Confirm('Do You want to change the Reporting Manager To ')== true) strBuild.Append(aryEmp(0);
Ebd If
Also, explore the quick If.
E.g.
If(ApplyValue IsNot Nothing AndAlso ApplyValue IsNot...) & _