Dim String, ver as string
 
string = "Morgen um 18 Uhr in der Dorfkneipe"
schluessel = "Passwort"
ver = ""
Dim x as integer
x = 1
 
For i=1 To len(string)
      ver = ver & asc( chr( mid(string, i, 1) ) + chr( mid(schluessel, x, 1) ) )
      x = x + 1
      if(x = len(schluessel) ) then x = 1
next i
 
msgbox "Verschlüsselte Zeichenkette: " & ver