VB Fix for  JsGetPropertyNameFromId