Private Function Encoding_TEXT2()
 
Dim i&, bis&, ZList$()
 
bis = InStr(1, Coding_Text, "END") - 1
ReDim ZList(1 To bis)
For i = 1 To bis
  ZList(i) = CStr(Asc(Mid$(Coding_Text, i, 1)) + 18)
  If (i Mod 10000) = 0 Then DoEvents
Next i
Coding_Text2 = Join$(ZList, " ")
Erase ZList
 
End Function

Gruss,

Zardoz