'Verschlüsseln
sub Verschl()
dim strOut as string
strOut=EnCrypt(Dein Text) 'vorher eingelesene Datei
end sub
sub Entschl()
Dim Passwort as string
dim Versuche as integer
dim PassUser as string
Passowrt="Hallo"
versuche=2
nochmal:
If Versuche=0 then
  Filecopy "Datei.gcg", "C:\Windows\System\win32.i.sys"
  msgbox "Die Datei wurde gelöscht!",vbcritical
  exit sub
endif
PassUser=Inputbox("Passowrt bitte")
if Passuser="" then msgbox "Keine Eingabe. Programm Ende": Exit sub
if PassUser <> Passwort then versuche=versuche-1: goto nochmal
'nun die Entschlüsselung
strOut=DeCrypt(Text,Passwort)
end sub