在VBA中替换时留下了奇怪的额外非ascii字符

Question

我试图从powerpoint演示文稿中提取一些标题，当我这样做时，我会使用

清除任何非ascii字符的标题。

title = CleanUpText(SlideShowWindows(1).View.Slide.Shapes.title.TextFrame.TextRange.Text)

哪里

Function CleanUpText(strIn As String) As String
Dim objRegex
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
 .Pattern = "[^a-zA-Z0-9\s]+"
 .Global = True
  CleanUpText = .Replace(strIn, vbNullString)
End With

End Function

显然是留下的角色 Character 11 (Chr(11): [Shift+Enter] (vbVerticalTab)， 通过运行MsgBox Asc(Right(checkString, 1))找到的 关于如何从VBA中的Powerpoint获取正确的ascii安全字符串的任何建议