Visual Basic - TEXTBOX ---muy facil---

Tengo un problemilla. Tengo un descodificador un texto, bien, el prolema surje cuando en vez de presentarme todos los datos descodificados en lineas separadas, me lo mete todo en una sola linea. El codigo es el siguiente:
Dim i As Long
Dim tmp As Integer
For i = 1 To Len(Text1.Text)
tmp = Asc(Mid$(Text1.Text, i, 1)) - 3
desencriptar = desencriptar + Chr(tmp)
Next i
Text1.Text = desencriptar

Va descodificando letra por letra i cuando llega a un ENTER pone esto algo parecido a dos lineas ( || ).

Alguien puede hayudarme a que al descodificar deje todas las lineas como estaban? Gracias!

colocale un capturador del enter cuando el tmp sea el código del enter (si mal no recuerdo es el 13) haz que temp=chr(13)+chr(10) o al revés esto te hará saltar de renglón.

saludos