Visual Basic - Posicionar cursor al principio del text

Estoy haciendo un chat utilizando los controles RichTextBox para introducir el texto a enviar.
Pues bien, cuando yo presiono enter, llamo a una funcion que se encarga de enviar el mensaje al destinatario. El problema es que yo quiero que solo envie el mensaje y que no produzca un salto de linea como lo hace.
El codigo es el siguiente:

Private Sub txtLocal_KeyPress(KeyAscii As Integer)
'Si presiona ENTER enviamos el mensaje
If KeyAscii = 13 Then
modFunciones.Enviar (txtLocal.Text)
End If
End Sub

Como puedo hacer para que , al presionar enter el cursor se quede siempre en el inicio del richtextbox?

Prueba con esto:
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
RichTextBox1.Text = ""
RichTextBox1.SelStart = 0
End If
If RichTextBox1.Text = vbCrLf Then RichTextBox1.Text = ""
End Sub

Gracias por tu ayuda miguel, pero no funciona, sigue apareciendome un salto de linea :(.
El codigo que utilize fue el siguiente:

Private Sub txtLocal_KeyPress(KeyAscii As Integer)
'Si presiona ENTER enviamos el mensaje
If KeyAscii = 13 Then
modFunciones.Enviar (txtLocal.Text)
txtLocal.Text = ""
txtLocal.SelStart = 0
If txtLocal = vbCrLf Then txtLocal.Text = ""
End If
End Sub

Prueba a poner lo siguiente(keyascii=0 después de Keyascii=13):

Private Sub txtLocal_KeyPress(KeyAscii As Integer)
'Si presiona ENTER enviamos el mensaje
If KeyAscii = 13 Then
modFunciones.Enviar (txtLocal.Text)
keyascii=0 '*****************************
End If
End Sub

Ya me dirás...

Mil gracias luisito!!!!! Funciona perfecto! Mil gracias a los dos por su tiempo