Convert JScript To VBScript

Hi, Can you please convert me the following JScript function into its equivalent VBScript (TestComplete) Thanks ----------------------------------------------------- function getR...