Function Vs Sub Vbscript Substring