Vba 在PowerPoint中现有文本之后插入选定文本文件

我在PowerPoint中创建了一个宏，它执行以下操作：用户单击幻灯片上的文本框。它命名框架，并打开一个对话框，供他们从文本文档列表中进行选择。他们选择一个，文本被读取并插入到命名的文本框中

下面是代码的插入部分：

Dim file As Object
Dim Text As String

Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile(vrtSelectedItem, 1)
Text = file.ReadAll
oShape.TextFrame.TextRange.Text = Text 'Insert the text into the text frame

我的问题是，它会清除框架中的任何现有文本，而不是添加到其中。我真的需要在框架中的任何现有内容之后添加新选择的文本。例如，如果要添加一组引号，则需要一个接一个地添加

有人能提供建议吗？

请使用以下方法：

oShape.TextFrame.TextRange.Text = oShape.TextFrame.TextRange.Text & Text 

或：

oShape.TextFrame.TextRange.Text = oShape.TextFrame.TextRange.Text & VbCRLF & Text