expivot - how to questions in VBScript