Leer archivo con tildes y escribir en TextBox

[Onedy]

Buenas,

Estoy haciendo una presentación Power Point que genera con vba automáticamente unas diapositivas y les inserta unos TextBox con el texto de un fichero de texto.

El problema es que letras como ăîțâș aparecen como cuadros raros en el TextBox.

¿Podríais ayudarme para que se muestren correctamente estos caracteres en el TextBox?

Muchas gracias

El código que uso:

Código vb:

Dim sFileName As String
Dim iFileNum As Integer
Dim sBuf As String
sFileName = "C:\Users\pepe\Documents\Concurso\preguntas.txt"
' existe el fichero?
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
    ' ahora tengo la linea en la variable sBuf
    ' aquí añado el texto al textbox
    diapositivaActual.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = sBuf
Loop
    ' cerramos el fichero
    Close iFileNum