Eliminar ENTER al final de la línea

[ci2000]

Hola, tengo un TextBox dónde el usuario ingresará texto.

Si este usuario presionó la tecla enter al final de la línea, quiero eliminar este enter y no sé cómo se hace.

Gracias desde yá por las respuestas.
Saludos

[pkj]

Si el textbox no es multilinea se ignoran los enter que pulses.

Si no, puedes quitar todos los enter con:

texto=replace(texto,vbcrlf,"")

o puedes quitar solo el ultimo con:

if right$(texto,2)=vbcrlf then texto=left$(texto,len(texto)-2)