Вставка текста из внешнего файла TXT между слайдами, UTF-8, модификация макроса

Question

У меня есть список слов Poli sh, написанных точно так же в txt файле:
arbuz
bąk
chór
cielę
ćma
dłoń
dżdżownica
dżungla
dźwig

I wi sh:

1. , чтобы на каждом из этих слов был отдельный слайд
2. , что слайды создано между уже существующими слайдами
3. , каждое слово находится в середине слайда
4. , чтобы я мог определить размер шрифта.

Я нашел этот макрос:

Sub AddSlides(text As String)
Dim Pre As Presentation
Dim Sld As Slide

Set Pre = ActivePresentation
Set Sld = Pre.Slides.Add(Index:=Pre.Slides.Count + 1, Layout:=1)
Sld.Shapes(1).TextFrame.TextRange = text
End Sub

Sub ReadFile(sFileName As String)

Dim iFileNum As Integer
Dim sBuf As String

' edit this:
'sFileName = "test.csv"

' does the file exist?  simpleminded test:
If Len(Dir$(sFileName)) = 0 Then
    Exit Sub
End If

iFileNum = FreeFile()
Open sFileName For Input As iFileNum

Do While Not EOF(iFileNum)
    Line Input #iFileNum, sBuf
    AddSlides (sBuf)
Loop

' close the file
Close iFileNum

End Sub

Sub SelectFile()

Dim In_file As Variant

Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)

dlgOpen.AllowMultiSelect = False

If dlgOpen.Show = -1 Then
In_file = dlgOpen.SelectedItems.Item(1)
ReadFile (In_file)
End If

End Sub

Отсюда: PowerPoint вставка текста из внешнего файла TXT между слайдами

К сожалению, это соответствует только условиям 1) и 3). Более того, он не поддерживает символы Poli sh (UTF-8). Как я могу изменить этот макрос?