Looking everywhere, I haven't been able to find an Excel VBA user defined function to find and replace a substring, with wildcards, from text string.

Something like, Example 1:

A1: "THIS IS THE ORIGINAL STRING"

Function in A2: NewSubstitute(A1,"O*L","NEW")

Result in A2: "THIS IS THE NEW STRING"

Example 2:

A1: "THIS IS THE ORIGIN, ORIGINAL, ORIGINALE, STRING"

Function in A2: NewSubstitute(A1,"O*,","NEW")

Result in A2: "THIS IS THE NEW NEW NEW STRING"


Help MUCH appreciated! Thanks!!!!!!