yo hice algo parecido es largo el codigo lo posteo aca o te lo mando x mail?

Listo lo logre!!!!
__________________________________
___________________________________
Gracias a Los q me ayudaron la verdad q fue de gran utilidad este foro

code;
Private Sub cmdguardar_Click()
Dim ruta As App
Dim numero As String
numero = Ficha
On Error GoTo Fallo
numero = ruta & "c:\" & numero
Open numero For Input As #5
MsgBox "La ficha ya existe."
modificar.Show
Me.Hide
Close #5
Exit Sub
Fallo: MsgBox "La ficha se guardo exitosamente."
dato1 = Text1
Open numero For Binary As #1
Put #1, 1, dato1
Close #1
End Sub

code;

Me queda asi pero no funciona
alguien sabe como hacerlo?
llegue hasta ahi pero nose como seguir

sigo sin entender
perdon

el codigo es asi;
codigo;

Private Sub cmdguardar_Click()
Dim numero As String
numero = Ficha
On Error GoTo Fallo
Open numero For Input As #5
MsgBox "La ficha ya existe."
modificar.Show
Me.Hide
Close #5
Exit Sub
Fallo: MsgBox "La ficha se guardo exitosamente."
dato1 = Text1
Open numero For Binary As #1
Put #1, 1, dato1
Close #1
End Sub

Me quedaria asi? ;
codigo;

Private Sub cmdguardar_Click()
Dim ruta As App
Dim numero As String
numero = Ficha
On Error GoTo Fallo
numero = ruta & "c:\" & numero
Open numero For Input As #5

Soplo me interesa lo q decis
yo habia pensado
poner la ruta en el registro de win
y q el programa lo lea de ahi
se como hacer lo del registro
se como hacer para q lea la variable de registro
pero nose como hacer para q comprenda q esa es la ruta a guardar

no me explique bien
el programa me guarda y le archivos de datos
el codigo para guardar es algo asi;
codigo;
Private Sub cmdguardar_Click()
Dim numero As String
numero = Ficha
On Error GoTo Fallo
Open numero For Input As #5
MsgBox "La ficha ya existe."

quiero saver como hacer para q el numero lo abra y guarde en por ej C:\rr\

tengo un programa en vb6 el cual guarda unos .dat en la carpeta donde se ejecuta la aplicacion
quiero saver alguna forma para q esos .dat me los guarde en
otra carpeta q no sea esa
Gracias a todos
 8)