要删除文本中的指定内容，可以使用Replace方法来替换指定内容为空字符串。下面是一个示例代码，演示如何删除文本中的指定内容：

Dim myText As StringDim searchText As StringDim newText As StringmyText = "这是一个示例文本，包含指定内容。"searchText = "指定内容"' 使用Replace方法删除指定内容newText = Replace(myText, searchText, "")' 输出删除指定内容后的文本MsgBox newText

在上面的示例中，我们首先定义了一个包含指定内容的文本myText和要删除的内容searchText。然后使用Replace方法将searchText替换为空字符串，最终得到删除指定内容后的新文本newText。