VB: Verschlüsselungsprogramm

Hi

Ich habe ein Verschlüsselungsprogramm gebastelt.
Nun will ich dem Programm beibringen das bei der Verschlüsselung die Zeilenumbrüche erhalten bleiben.

Vielen Dank schon mal ;D

Hier der Code:
---------------------------------------------------------------------------------
Option Explicit
Dim Anzahl
Dim Zeichen
Dim i

Private Sub cmd_Beenden_Click()
Unload Me
End
End Sub

Private Sub cmd_Ent_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0

If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl

For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) - Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If

End Sub

Private Sub cmd_Ver_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0

If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl

For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) + Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If
End Sub
------------------------------------------------------------------

Hi

For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
if zeichen = chr(10) then next i
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) - Val(txt_Passwort.Text))
Status = Status + 1
Next i

So sollte das in etwa gehen glaube ich.
Problem ist aber, das ja eventuell auch andere Zeichen durch die Verschlüsselung zu Leerzeichen werden und man sie beim entschlüsseln nicht mehr von den richtigen unterscheiden kann.

Gruß, Michael

kannste mir das mal als zip-file schicken ?