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

Private Sub Exporter_UTF8(NomFichier As String)
' Ouverture du fichier en forçant l'encodage des caractères en UTF-8
'
Dim MonFlux As Object
Dim MonTexte As String

    Set MonFlux = CreateObject("ADODB.Stream")
 
    With MonFlux
        .Open
        .Position = 0
        .Charset = "UTF-8"
        .WriteText MonTexte
        .SaveToFile NomFichier
        .Close
    End With

    Set MonFlux = Nothing

End Sub

Sub test2()
'on lit un fichier UDF 8
    Dim texto$, fichier$
    fichier = "C:\Users\polux\Desktop\Mémo UTF-8.txt"
    Open_For_Read_Force_Udf_8 fichier, texto
    MsgBox texto
End Sub
Sub test3()
'on lit un fichier ANSI
    Dim texto$, fichier$
    fichier = "C:\Users\polux\Desktop\Mémo 0.txt"
    Open_For_Read_Force_Udf_8 fichier, texto
    MsgBox texto
End Sub


Function Open_For_Read_Force_Udf_8(ByVal fichier$, texto$)
    Dim laChaine As String, x: x = FreeFile
    'lecture binnaire
    Open fichier For Binary Access Read As #x: laChaine = String(LOF(x), " "): Get #x, , laChaine: Close #x
    If Not laChaine Like "*[Ã|é|è|ç|â|€|«|»|û|ê|…|/ø|ø|À|É|È|Ã|Ö|]*" Then    'si la chaine ne contient pas de carateres sbizarre
        texto = laChaine    ' alors texto = lachaine
    Else    ' sinon on stream le fichier avec ADOBD.Stream
        With CreateObject("ADODB.Stream")
            .Charset = "utf-8": .Open: .LoadFromFile (fichier): texto = .ReadText()
        End With
    End If
End Function

Function Open_For_Read_Force_Udf_8(ByVal fichier$, texto$)
    Dim lachaine As String, x: x = FreeFile
    'lecture binnaire
    Open fichier For Binary Access Read As #x: lachaine = String(LOF(x), " "): Get #x, , lachaine: Close #x
    If Not lachaine Like "*[Ã|é|è|ç|â|€|«|»|û|ê|…|/ø|ø|À|É|È|Ã|Ö|]*" Then    'si la chaine ne contient pas de carateres sbizarre
        texto = lachaine    ' alors texto = lachaine
    Else    ' sinon on stream le fichier avec ADOBD.Stream

        With CreateObject("ADODB.Stream")
            .Charset = "utf-8": .Open: .LoadFromFile (fichier): texto = .ReadText()
        End With
    End If
End Function



Sub convert()    ' recupe le texte complet  avec binary acces read
   Dim texto$, lachaine$
   Open_For_Read_Force_Udf_8 ThisWorkbook.Path & "\Mémo UTF-8.txt", texto
   MsgBox " à la lecture avec la fonction bimode ça donne ça" & vbCrLf & texto
   fichier = ThisWorkbook.Path & "\BisMémo UTF-8.txt"
   If Dir(fichier) <> "" Then Kill fichier
    With CreateObject("ADODB.Stream")
        .Open
        .Position = 0
        .Charset = "UTF-8"
        .WriteText texto
        .SaveToFile fichier
        .Close
    End With
 DoEvents
 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