搜索角色＆amp;而不是转换后的＆amp;在mailItem.HTMLBody中

Question

我有一个函数可以找到给定字符串之间的字符串。这是一个例子：

midReturn("?sender=", "&to=", mailItem.HTMLBody)

上面应该在?sender和&to之间添加字符串，但&会转换为&。

有没有办法可以找到两种情况？我做了一个声明来检查这个，但它不起作用：

Dim from = midReturn("?sender=", "&to=", mailItem.HTMLBody)

If from < 1 Then
    from = midReturn("?sender=", "&to=", mailItem.HTMLBody)
End If