Reading UTF-8 texts in PowerPoint via VBA

I want to read all text in a PowerPoint file using VBA.

I write this code:

Sub ReadFileText()    On Error Resume Next    Dim shp As Shape    For Each sld In ActivePresentation.Slides        For Each shp In sld.Shapes             If shp.TextFrame.HasText Then                MsgBox shp.TextFrame.TextRange.Text             End If        Next shp    Next sldEnd Sub

Some shapes includes non-ASCII (UTF-8) characters in text.VBA returns them as "?" character!

How can I read shape text as UTF-8 string?

Power Point Screenshot