Duplicar registros con botón y cuadro de texto

No soy experto, pero he ido aprendiendo para realizar algunas cosas, pero en estos momentos, necesito duplicar un registro en especifico de una tabla a otra, esto lo solucioné con este código

Sub Duplicar()
DoCmd.RunSQL "INSER INTO tabladestino (cantidad, codigo, descripcion) SELESCT Tablaorigen.cantidad,codigo,descripcion FROM Tablaorigen Where numfact=15"
End Sub

Mi duda es que este registro en especifico debe indicarlo un usuario en un cuadro de texto de un formulario y con el código se ejecute a través de un botón la acción de duplicar de acuerdo al WHERE que se indique en el cuadro de texto, gracias por la ayuda