Sub Activity_Create(FirstTime As Boolean)
Dim raf As RandomAccessFile
Dim test As String
raf.Initialize(File.DirRootExternal, "test.dat", False)
'Dim list2 As List
test = raf.ReadEncryptedObject("some secret password", raf.CurrentPosition)
Log(test)
raf.Close