<code>Option Explicit
 
Public Function VERCaesar(Text As String, Zahl As Long) As String
  Dim Lokal As Integer
  Dim Temp As String
  Dim i As Long
 
  For i = 1 To Len(Text)
    Temp = Mid(Text, i, 1)
    Lokal = Asc(Temp)
    Lokal = Lokal + Zahl
    VERCaesar = VERCaesar + Format$(Lokal, "000")
  Next i
End Function
 
Private Sub Command1_Click()
  Text2.Text = (VERCaesar(Text1.Text, 5))
  Text1.Text = ""
End Sub
 
Private Sub Command2_Click()
  Text1.Text = (ENTCaesar(Text2.Text, 5))
  Text2.Text = ""
End Sub
 
Public Function ENTCaesar(Text As String, Zahl As Long) As String
  Dim Lokal As Integer
  Dim i As Long
 
  For i = 1 To Len(Text)
    Lokal = Val(Mid(Text, i, 3)) - Zahl
    ENTCaesar = ENTCaesar + Chr$(Lokal)
    i = i + 2
  Next i
End Function</code>