Function ET(vText As String, Key1 As String, Key2 As String) As String
TextLaenge = Len(Text2)
n = 0
Code = Key2
CodeLaenge = Len(Key2)
If CodeLaenge < TextLaenge Then
For CodeLaenge = (CodeLaenge + 1) To TextLaenge Step 1
n = n + 1
Code = Code & Mid(Code, n, 1)
Next CodeLaenge
End If
anz = 0
Do
anz = anz + 1
VerschText = ""
For n = 1 To TextLaenge
Zeichen = Mid(Text2, n, 1)
AscZeichen = Asc(Zeichen)
VZahl = Asc(Mid(Code, n, 1))
AscZeichen = AscZeichen - VZahl
If AscZeichen < 32 Then
AscZeichen = AscZeichen - 31
AscZeichen = AscZeichen + 125
If AscZeichen < 32 Then
AscZeichen = AscZeichen - 31
AscZeichen = AscZeichen + 125
End If
End If
VerschText = VerschText & Chr(AscZeichen)
Next n
Text2 = VerschText
Loop Until anz = Asc(Left(Key1, 1)) + Asc(Left(Key2, 1))
n = 0
m = 0
o = 0
p = 0
m = Len(Text2)
VerschText = Space(Len(Text2))
Do
n = n + 1
p = p + 1
Mid(VerschText, p, 1) = Mid(Text2, n, 1)
o = o + 1
If o = Len(Text2) Then Exit Do
n = n + 1
Mid(VerschText, m, 1) = Mid(Text2, n, 1)
o = o + 1
m = m - 1
Loop Until o = Len(Text2)
Text2 = VerschText
VerschText = ""
For n = Len(Text2) To 1 Step -1
VerschText = VerschText & Mid(Text2, n, 1)
Next n
Text2 = VerschText
Code = ""
VerschText = ""
TextLaenge = Len(Text2)
n = 0
Code = Key1
CodeLaenge = Len(Key1)
If CodeLaenge < TextLaenge Then
For CodeLaenge = (CodeLaenge + 1) To TextLaenge Step 1
n = n + 1
Code = Code & Mid(Code, n, 1)
Next CodeLaenge
End If
For n = 1 To TextLaenge
Zeichen = Mid(Text2, n, 1)
AscZeichen = Asc(Zeichen)
VZahl = Asc(Mid(Code, n, 1))
AscZeichen = AscZeichen - VZahl
If AscZeichen < 32 Then
AscZeichen = AscZeichen - 31
AscZeichen = AscZeichen + 125
If AscZeichen < 32 Then
AscZeichen = AscZeichen - 31
AscZeichen = AscZeichen + 125
End If
End If
VerschText = VerschText & Chr(AscZeichen)
Next n
For n = 1 To Len(VerschText)
If Mid(VerschText, n, 2) = "kh" Then Mid(VerschText, n, Len(vbNewLine)) = _
  vbNewLine
Next n
Text2 = VerschText
EntschluessleText = Text2
End Function