Try

            'Create a new RSACryptoServiceProvider object. 
            Dim RSA As New RSACryptoServiceProvider()

            'Export the key information to an RSAParameters object.
            'Pass false to export the public key information or pass
            'true to export public and private key information.
            Dim RSAParams As RSAParameters = RSA.ExportParameters(False)


        Catch e As CryptographicException
            'Catch this exception in case the encryption did
            'not succeed.
            Console.WriteLine(e.Message)
        End Try

        try
        {
            //Create a new RSACryptoServiceProvider object.
            RSACryptoServiceProvider RSA = new RSACryptoServiceProvider();


            //Export the key information to an RSAParameters object.
            //Pass false to export the public key information or pass
            //true to export public and private key information.
            RSAParameters RSAParams = RSA.ExportParameters(false);


        }
        catch(CryptographicException e)
        {
            //Catch this exception in case the encryption did
            //not succeed.
            Console.WriteLine(e.Message);

        }

try
{
   //Create a new RSACryptoServiceProvider Object*.
   RSACryptoServiceProvider^ RSA = gcnew RSACryptoServiceProvider;

   //Export the key information to an RSAParameters object.
   //Pass false to export the public key information or pass
   //true to export public and private key information.
   RSAParameters RSAParams = RSA->ExportParameters( false );
}
catch ( CryptographicException^ e ) 
{
   //Catch this exception in case the encryption did
   //not succeed.
   Console::WriteLine( e->Message );
}