Public Class Form1
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Richtextbox1.Text = ">>> Als Text wurde " & TextBox1.Text & " ausgewählt."
        If TextBox1.Text = "" Then
            Richtextbox1.Text += ">>> Text entfernt !"
        End If
    End Sub
End Class