XL 2016 VBA - Copier le texte d'un fichier .txt en TextBox

Sub Ecrire_UTF8sansBOM_EkkehardHorner()
' https://stackoverflow.com/questions/31435662/vba-save-a-file-with-utf-8-without-bom/31436631
'
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
Const adTypeText = 2
Dim objStreamUTF8
Dim objStreamUTF8NoBOM

    Set objStreamUTF8 = CreateObject("ADODB.Stream")
    Set objStreamUTF8NoBOM = CreateObject("ADODB.Stream")

    With objStreamUTF8
        .Charset = "UTF-8"
        .Open

        .WriteText "Le père Noël a été vu à l'étang où il a pêché !", 1
        .WriteText "Autres caractères accentués : àéèôûïñ"

        .Position = 0
'        .SaveToFile ThisWorkbook.Path & "\UTF8avecBOM_EkkehardHorner.txt", adSaveCreateOverWrite
        .Type = adTypeBinary
        .Position = 3
    End With

    With objStreamUTF8NoBOM
        .Type = adTypeBinary
        .Open
        objStreamUTF8.CopyTo objStreamUTF8NoBOM
        .SaveToFile ThisWorkbook.Path & "\UTF8sansBOM_EkkehardHorner.txt", adSaveCreateOverWrite
    End With

    objStreamUTF8.Close
    objStreamUTF8NoBOM.Close

End Sub

Sub Ecrire_UTF8sansBOM_Staple1600()
' https://www.excel-downloads.com/threads/question-de-conversion-en-utf-8-pour-une-vba-qui-enregistre-un-txt.20011510/#post-20088215
'
Dim BinaryStream As Object

    With CreateObject("adodb.stream")

        .Type = 2
        .Mode = 3
        .Charset = "UTF-8"
        .LineSeparator = -1
        .Open

        .WriteText "Le père Noël a été vu à l'étang où il a pêché !", 1
        .WriteText "Autres caractères accentués : àéèôûïñ"

        .Position = 3
        Set BinaryStream = CreateObject("adodb.stream")
        BinaryStream.Type = 1
        BinaryStream.Mode = 3
        BinaryStream.Open
        .CopyTo BinaryStream
        .Flush
        .Close

    End With

    BinaryStream.SaveToFile ThisWorkbook.Path & "\UTF8sansBOM_Staple1600.txt", 2
    BinaryStream.Flush
    BinaryStream.Close

End Sub

Sub lecture()    'binaire
    fichier = ThisWorkbook.Path & "\UTF8sansBOM_EkkehardHorner.txt"
    Dim lachaine$
    x = FreeFile: Open fichier For Binary Access Read As #x: lachaine = String(LOF(x), " "): Get #x, , lachaine: Close #x
    MsgBox " a la relecture apres comversion ça donne ça" & vbCrLf & lachaine
End Sub

Sub lecture3()    ' recupe le texte complet avec input simple
    Dim x As Integer: x = FreeFile
    Dim lines As String, i As Long
    fichier = ThisWorkbook.Path & "\UTF8sansBOM_EkkehardHorner.txt"
    Open fichier For Input As #x
    lines = Input$(LOF(x), #x)
    Close #x
    MsgBox lines
End Sub