Thank your for yourCode!
I was looking for something like that!
I will try to modify Sub RunAES(sFile, sPassIn) to :
Function strEncryptAES(s trInputString, strPassphrase) As String

End Function

My question before I start running into the false direction: Will it work if I use strings instead of the File-objects?