title: Secret message encrypt/decrypt ÅÄÖ
body: <p>I need to add this encryptdecrypt code ÄÖÅ characters, but i don't know how?
  Here's my code:</p>
  
  <pre><code>Public Function EncryptDecryptString(ByVal inputString As String, Optional ByVal decrypt As Boolean = False) As String
      Dim sourceChars As String = " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
      Dim resultChars As String = "36N8lkXruq94jMZInPpshR xHc2mTQb7eYai5vGWDzFdoC0wKSBt1EOgVALJfUy"
  
      Dim result As String
      If decrypt Then
          result = New String(inputString.Select(Function(c) sourceChars(resultChars.IndexOf(c))).ToArray())
      Else
          result = New String(inputString.Select(Function(c) resultChars(sourceChars.IndexOf(c))).ToArray())
      End If
  
      Return result
  End Function
  </code></pre>