VB.Net Regular Expressions - Escape Method

Is there a way t开发者_开发知识库o escape all metacharacters in a string with the exception of "*"?

---

You can call Regex.Escape(str).Replace("\*", "*").

If the original string contains \*, this won't work properly.