diff --git a/openpgp-card-sequoia/src/lib.rs b/openpgp-card-sequoia/src/lib.rs
index e735239..b2b20e3 100644
--- a/openpgp-card-sequoia/src/lib.rs
+++ b/openpgp-card-sequoia/src/lib.rs
@@ -58,6 +58,14 @@ impl SequoiaKey {
     }
 }
 
+pub fn vka_as_uploadable_key(
+    vka: ValidErasedKeyAmalgamation<SecretParts>,
+    password: Option<String>,
+) -> Box<dyn CardUploadableKey> {
+    let sqk = SequoiaKey::new(vka, password);
+    Box::new(sqk)
+}
+
 /// Implement the `CardUploadableKey` trait that openpgp-card uses to
 /// upload (sub)keys to a card.
 impl CardUploadableKey for SequoiaKey {