Function Encoding_TEXT()
'    Coding_Text   is der String zur Weitergabe
Coding_Text2 = ""
CodeSuchWert = ""
i = 1
Do While CodeSuchWert <> "END"
CodeZeichen = Mid(Coding_Text, i, 1)
CodeZeichen2 = Asc(CodeZeichen) + 18
Coding_Text2 = Coding_Text2 & CodeZeichen2 & " "
CodeSuchWert = Mid(Coding_Text, i, 3)
i = i + 1
DoEvents
Loop
End Function

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD