F5S.ExtractToArray(File.DirInternal & "/icon.png", "Icon")
Sub Icon_ArrayExtracted(SecretMessage() As Byte)
Dim SB As StringBuilder
SB.Initialize
For i = 0 To SecretMessage.Length - 1
SB.Append(SecretMessage(i)).Append(" ")
Next
Dim PlainText As String = BytesToString(SecretMessage, 0, SecretMessage.Length, "UTF-8")
#IF DEBUG
Log(PlainText)
#End If
End Sub