Function RSAVerschlüsseln(ByVal text As String, ByVal xmlKeys As String)
        'The plaintext message in a byte array
        Dim PlainTextBArray As Byte()
        'The cyphertext message in a byte array
 
 
        Dim rsa As New RSACryptoServiceProvider
 
        xmlKeys = rsa.ToXmlString(True)

PlainTextBArray = ASCIIEncoding.UTF8.GetBytes(message)