Excel Vba Replace Substring Sql