Private Function Encoding_TEXT2() As Long
 
Dim i&, bis&, ZList$(), Z1&, ByteLst() As Byte
 
ByteLst() = StrConv(Coding_Text, vbFromUnicode)
bis = InStr(1, Coding_Text, "END") - 2
ReDim ZList(bis)
Z1 = 0
For i = 0 To bis
  ZList(i) = CStr(ByteLst(i) + 18)
  Z1 = Z1 + 1
  If Z1 = 10000 Then
    Z1 = 0
    DoEvents
  End If
Next i
Coding_Text2 = Join$(ZList, " ")
Erase ZList, ByteLst
 
End Function

Gruss,

Zardoz