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

[Potassium]

so warum er division durch null zeigt weiß ich nun: er hatte die variable einfach nicht gekannt und somit als "" gesetz das funzt aber nicht.
also hab ich die inputbox einfach ins modul eingefügt. funzt eigentlich gut nur das man beim entlüsseln 4 oder 5 mal den code einegebn muss bis er das richitge ergebnis hat. wie kann ich das machen das man es nur einmal eingeben muss? (sprich er merkt sich für die restlichen 3 oder 4 mal den key aber SPEICHERT ihn ned.)