Public Function EncryptString(StringToEncrypt As String, Optional Key As String, Optional OutputInHex As Boolean) As String