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

'-------------------------------------
'Lecture du contenu d'un fichier texte
'-------------------------------------
Private Function LireFichierTexte(NomCompletFichier As String) As String
    Dim IndexFichier As Integer
 
    IndexFichier = FreeFile()
    Open NomCompletFichier For Binary Access Read As #IndexFichier
    LireFichierTexte = Space$(LOF(IndexFichier))
    Get #IndexFichier, , LireFichierTexte
    Close #IndexFichier
End Function

Sub Importer_UTF8(NomFichier As String)
' Ouverture du fichier en forçant le décodage des caractères en mode UTF-8
'
Dim MonFlux As Object
Dim MonTexte As String

    Set MonFlux = CreateObject("ADODB.Stream")

    With MonFlux
        .Charset = "utf-8"
        .Open
        .LoadFromFile (NomFichier)
        MonTexte = .ReadText()
        .Close
    End With

    Set MonFlux = Nothing

End Sub

Sub test1()
Dim texto$, fichier$
fichier = "C:\Users\polux\Desktop\Mémo UTF-8.txt"
j_aime_bien_mes_carateres_bizarres_moi fichier, texto$
MsgBox texto
End Sub

Sub test2()
Dim texto$, fichier$
fichier = "C:\Users\polux\Desktop\Mémo UTF-8.txt"
je_veux_mes_accents_sinon_je_cris fichier, texto
MsgBox texto
End Sub

Function j_aime_bien_mes_carateres_bizarres_moi(fichier$, ByRef texto$)
    Dim laChaine As String, x
    fichier = "C:\Users\polux\Desktop\Mémo UTF-8.txt"
    x = FreeFile
    Open fichier For Binary Access Read As #x
    laChaine = String(LOF(x), " ")
    Get #x, , laChaine
    Close #x
   texto = laChaine
End Function

Function je_veux_mes_accents_sinon_je_cris(fichier$, ByRef texto$)
Dim streamer, sTexte
Set streamer = CreateObject("ADODB.Stream")
streamer.Charset = "utf-8"
streamer.Open
streamer.LoadFromFile (fichier)
sTexte = streamer.ReadText()
texto = sTexte
End Function