QTP / VBScript：如何从字符串中删除所有URL？

I have a string in my QTP test project. In some cases, this string is a plaintext E-mail's content; in other cases it's HTML. In both cases, I need to strip all URLs from the string to match it against an Expected case. I have a string in my QTP test project. In some