Hi,
noch ein kleiner Denkanstoß, allerdings in VB , Sorry
Code:
Private Sub Uebersetzen()
    Code = "LPUNLKPJOACVUAOLVKVYZAVYTRULJOAYBWYLJOACVUKYHBZZCVTDHSKLRVTTPJOOLYPJOTBZZZHNLULZDLPOUHJOALAZLOYHSSBLILYHSSHBMKLUAHUULUZWPAGLUZHOPJONVSKLULSPJOASLPUZPAGLUBUKKYVILUHBZKLTOPTTLSZAVYZHOTPANYVZZLUHBNLUKHZJOYPZARPUKCVY"
    no_code = ""
    
    For n = 1 To Len(Code)
        char = Mid(Code, n, 1)
        
        If Asc(char) > 71 Then
            no_code = no_code + Chr(Asc(char) - 7)
        Else
            no_code = no_code + Chr(Asc(char) + 19)
        End If
    Next n
End Sub

funktionieren tut's jedenfalls ....

Gruß
Christopher