Esta retornando erro de Algoritico inválido Especificado, quando vai ser assinado, como prosseguir?
Dim data = Encoding.UTF8.GetBytes(Me.txtCNPJEmpresa.Text + Me.txtCNPJSoftwareHouse.Text)
Dim csp As RSACryptoServiceProvider = DirectCast(Certificado.PrivateKey, RSACryptoServiceProvider)
Dim sha As SHA256 = SHA256Managed.Create()
Dim hash As Byte() = New Byte() {}
hash = sha.ComputeHash(data)
Dim encrypted As Byte() = csp.SignHash(hash, "SHA256")
RSAPKCS1SignatureFormatter
? Veja esse exemplo. É muito comum - quando se quer assinar um dado arbitrário - primeiro fazer um hash desse dado e então assinar o hash, isso é usado em diversos protocolos, só não sei se se aplica ao seu caso.