Salve a tutti! Sono sempre io che rompo le scatole con un crypter di testo!!

Allora ho un piccolo problemino non riesco a far si che quando cancello nella textbox1 nella textbox2 si cancelli in contemporanea:
ad esempio c'è il testo "Ciao" e nella barra sotto il testo ciao cryptato che è "miao" come faccio a far si che quando nella texbox1 cancello una lettera quindi "Cia" lo faccia anche nella 2 quindi "mia" ? Per ora il codice da me usato è questo:

codice:
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim originale As String
        Dim Cript As String
        If e.KeyChar = "A" Then
            TextBox1.AppendText("C")
        ElseIf e.KeyChar = "a" Then
            TextBox1.AppendText("c")
        ElseIf e.KeyChar = "C" Then
            TextBox1.AppendText("T")
        ElseIf e.KeyChar = "c" Then
            TextBox1.AppendText("t")
        Else
            TextBox1.AppendText(e.KeyChar)
        End If
    End Sub