Dim strText As String
Dim strVernamText As String
strText = "Dies ist der zu verschlüsselnde Text"
strVernamText = VernamCode(strText, Passwort)
 
Open "C:\Test.txt" For Binary As #1
Put #1, , strVernamText
Close #1

Dim strDecodText As String
Dim strVernamText As String
 
Open "C:\Test.txt" For Binary As #1
strVernamText = Space(LOF(1))
Get #1, , strVernamText
Close #1
 
strDecodText = VernamCode(strVernamText, Passwort)
MsgBox strDecodText