Office - Cambiar ruta

Hola, este codigo me copia los datos de unas celdas y los pega en un txt. que lo abre en c:
con el nombre de "datos".

y yo quisiera que me los pegara en una carpeta Ejm: C:\Archivos de
programa\Hewlett_Packard\Digital Imaging\Album

Gracias Anticipadas.

Aqui esta el codigo:

Private Sub CommandButton1_Click()
Rem nombre de la hoja de excel que tiene la informacion a guardar
Sheets("Hoja1").Activate
If Sheets("Hoja1").Activate Then
Rem seleccionar celda desde donde se quiere guardar la informacion
Range("P1").Select
Rem si no hay ningún dato en P1 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de añadir Temporal (Output) en el área de almacenamiento #1
Open "c:\datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el código en una variable
Codigo = ActiveCell
Rem escribe los datos de Codigo en el archivo txt
Print #1, Codigo
Rem baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End If
End Sub

Hice algunos cambios pero en esencia es lo mismo...

Const cMyPath = "C:\Archivos de " & _
"programa\Hewlett_Packard\Digital Imaging\Album\datos.txt"

'Eliminé los comentarios para mayor claridad en el código
"Además no son necesarios en tan pocas líneas...

Private Sub CommandButton1_Click()
Dim hFile%
If Sheets("Hoja1").Activate Then
[P1].Select
If ActiveCell = Empty Then Exit Sub
hFile = FreeFile
Open cMyPath For Output Access Write As #hFile
regresa:
With ActiveCell
Print #hFile, .Value
.Offset(1, 0).Select
If .Value <> Empty Then GoTo regresa
End With
Close #hFile
End If
End Sub

Saludos desde Baires, JuanC

De nuevo muchisimas gracias JuanC

Saludos.