2 cosas:
1.- Estas haciendo bien en la primera función capturando la tecla, pero en ningún momento estas cancelando la pulsación, ahora mismo no tengo VS instalado por que acabo de formatear mi laptop, en cuanto lo instale veré como es que se cancela, lo mas probable es que el KeyPressEventArgs tenga un método cancel, algo como esto:
Código:
Private Sub txtCuerpo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCuerpo.KeyPress
If e.KeyChar = Chr(13) Then
e.Cancel()
MessageBox.Show("no se puede dar enter en estre control")
End If
End Sub
En todo caso si eso no funciona podrías "presionar" la tecla 'backspace' antes del mensaje para borrar el enter.
2.- Lo que realmente te recomendaría es que pongas todo siempre entre apostrofes, así te evitarás dolores de cabeza en caso de que algún otro idioma tenga caractéres con comportamiento similar.
Para eso lo que tienes que hacer es cuando se genere el evento que va a tomar el texto del RichTextBox en vez de decir: "RichTextBox.Text()" dirías "' & RichTextBox.Text() & '".
Si vas a pasar ese contenido a una variable entonces puedes usar la clase: System.Text.StringBuilder para mejorar un poquito el performance.