Identificar "enter" en una caja de texto multilinea

[Zeroql]

Buenas
Bueno resulta tengo una caja de texto multilinea, pero en una variable debo guardar el texto de esta, pero si hay enters dede reconocerlos y quitarlos para enviar los datos a dicha variale.
Uso este codigo:

Código (vb) [Seleccionar] Expandir


For i = 1 To Len(cadena)
      If Mid(cadena, i, 1) = vbCrLf Then
         NoEnters = Mid(cadena, 1, i - 1) & "~" & Mid(cadena, i + 1, Len(cadena))
         Exit For
      Else
         NoEnters = cadena
      End If
Next i


pero no detecta los enters, alguien conoce algun codigo???
Se los agradezco.

[MCKSys Argentina]

Hola!

Me parece que el problema lo tienes aqui:

Código (vb) [Seleccionar] Expandir


      If Mid(cadena, i, 1) = vbCrLf Then


Estas comparando 1 caracter (el del Mid) con 2 caracteres del Enter (0x0Dh + 0x0Ah)

Saludos!

[Zeroql]

Pues ese siempre ha funcionado para tomar el enter, pero depurando encontre de que no keda el enter, aparece una cadena complea sin espacios ni nada asi:
Si el texto es
Hola
Mundo

queda: HolaMundo...
la verda que estoy muy confundido en este punto

[WHK]

para enviar los datos a dicha variale

Por lo que entendí tu vas a enviar los datos a un sitio web, si es así entonces debes utilizar urlencode ya que el servidor te responderá con un error 400 si intentas enviar carácteres que no sean alfanuméricos sin que estén encodeados a menos que envíes una petición POST como si fueras a enviar un archivo.

[h0oke]

Probaste tratando de detectar "\n"? Supuestamente, para escribir una nueva línea en vb, existe "vbnewline".

[BlackZeroX]

vbnewline es lativamente igual a vbCrLf

[Dessa]

NoEnters = Replace(cadena, vbNewLine, "-")



PD: perdon  si no entendí bien la pregunta