Encryptar archivo cargado en textbox

[ZOoM23]

como hago para encryptar un archivo cargado en textbox vb6 ?
osea tengo u ntextbox con una ruta y quiero que cuando le de al command_button encrypte el archivo ese:

Código:

Dim rc4 as new classrc4
rc4.Encryptfile  "C:\Proyecto1.rar", "C:\Proyecto2.rar", False, "1234"

donde pone C:\Proyecto1.rar quiero poner la ruta del archivo que esta en el textbox.
Y donde pone C:\Proyecto2.rar como hago con un CommonDialog para guardarlo donde yo quiera ?

[ComprasDesdeCasa]

Suponiendo que tu textbox se llama txtboxEntrada y el de salida txtboxSalida

rc4.Encryptfile txtboxEntrada.text, txtboxSalida.text, False, "1234"

Saludos.

[pkj]

Investiga un poco los CommonDialog para ver las opciones que tienes.
Basicamente se podria hacer asi: (una vez que has insertado un commondialog, claro)

commondialog1.filename=""
commondialog1.showsave
if commondialog1.filename<>"" then rc4.Encryptfile text1.text, commondialog1.filename, False, "1234"

Aunque el "1234" igual quieres ponerlo desde otro textbox, ya que imagino que sera la contraseña. El False no se lo que es, asi que me callo.