VB6.0: ROT13 verschlüsselung für zahlen und sonderzeichen.

[Potassium]

hab ich gemacht. aber der code ist genau so wie du ihn gepostet hast. nur ab ich bei der bei dem teil mit dem code =... und so witer den schlussel ="dieser schlussel verschlusselt den text" ersetzt durch key1 = inputbox("kwy!"
open "pw" for output as #1
print #1, key1
close

open "pw" for input as #1
input #1, key
close
schlussel = key

und hab vorher noch dimensieoniert:
dim key1 as string, key as string
das wars was ich verändert hab.
wo is da ein fehler?
bzw ist das ned mehr so schlimm weil er sich ja jedemal den code aus der datei holt.

2. problem beim öffnen der verschlüsselten datei sagt er nachdem er die erste zeile gelesen hat dateiname oder Nr falsch.

code:
dim dateinr as integer, temp as string
dateinr = freefile

open "crypt.txt" for input as dateinr
do while not EOF(dateinr)
line input #dateinr, temp
textbox.text = textbox.text & vbCrLf & "das zum decodieren. weiß i aber grad ned auswendig"
loop
close

und nach der ersten zeile kommt dateinr oder name ist falsch.
wwwwwwwwwaaaaaaaaaaaarrrrrrrrrruuuuuuuummmmmmm?