Js String Has Substring Function In Vba