Private Sub Command1_Click()
Dim NeuerText As String
Dim N As Integer
 
Text1.Text = "Hallo"
 
For N = 1 To Len(Text1.Text)
 
  If Asc(Mid(Text1.Text, N, 1)) = 122 Then
    ' Falls der Buchstabe ein z ist wird ein a daraus
    NeuerText = NeuerText & Chr(Asc(Mid(Text1.Text, N, 1)) - 25)
  Else
    NeuerText = NeuerText & Chr(Asc(Mid(Text1.Text, N, 1)) + 1)
  End If
 
Next
 
Text1.Text = NeuerText
 
End Sub