Caractères spéciaux dans VBA

Function TagTxt(ByVal Z As String) As String
Dim P As Long, A As Long
For P = 1 To Len(Z)
   A = AscW(Mid$(Z, P, 1))
   If A > 255 Then TagTxt = TagTxt & "{" & A & "}" Else TagTxt = TagTxt & Chr$(A)
   Next P
End Function

Function TxtTag(ByVal Z As String) As String
Dim T() As String, P As Long, U() As String
T = Split(Z, "{")
For P = 1 To UBound(T)
   U = Split(T(P), "}"): T(P) = ChrW$(U(0)) & U(1)
   Next P
TxtTag = Join(T, "")
End Function

Function TagTxt(ByVal Z As String) As String
Dim P As Long, A As Integer
For P = 1 To Len(Z)
   A = AscW(Mid$(Z, P, 1))
   If A > &HFF Then TagTxt = TagTxt & "{" & Hex(A - &H100) & "}" Else TagTxt = TagTxt & Chr$(A)
   Next P
End Function

Function TxtTag(ByVal Z As String) As String
Dim T() As String, S As Long, P As Long, A As Integer, U() As String
T = Split(Z, "{")
For S = 1 To UBound(T)
   Z = T(S): P = InStr(Z, "}")
   T(S) = ChrW$(CInt("&H" & Left$(Z, P - 1)) + &H100) & Mid$(Z, P + 1)
   Next S
TxtTag = Join(T, "")
End Function

=TagTxt(Q13)

=TxtTag(R13)

Private Sub UserForm_Activate()
 Dim CTL As Control
 Dim PIC As IPictureDisp

 TextBox1 = Worksheets(Nom_Onglet).Range(AdCel)
 
 For Each CTL In FANION.Controls
  If UCase(TextBox1) Like UCase(CTL.Tag) Then
    Set PIC = CTL.Picture
    Image1.Picture = PIC
    Exit For
  End If
 Next CTL

End Sub