Excel Vba Substring Function In Sql