If e.KeyChar = "z" Or e.KeyChar = "Z" Then
    TextBox2.Text += "a"
Else
    'bij de integerwaarde van het ingevoerde karakter 1 bijtellen
    'en terug omzetten naar een char om in het tekstvak te zetten
    TextBox2.Text += ChrW(AscW(e.KeyChar) + 1)
End If

If e.KeyChar = "z" Or e.KeyChar = "Z" Then
    TextBox2.Text += "a"
Else
    'bij de integerwaarde van het ingevoerde karakter 1 bijtellen
    'en terug omzetten naar een char om in het tekstvak te zetten
    TextBox2.Text += ChrW(AscW(e.KeyChar) + 1)
End If