Access - CARPETA Y ARCHIVOS

Buenas tardes, perdonar chicos que os moleste tengo una duda con este código:

desde un botón creo una carpeta con el nombre de un campo de mi formulario para almacenar un documento de word, si la carpeta existe, solo me la abre si no la crea y me abre una plantilla para rellenar para después guardarlo en esa carpeta que he creado.

AHORA MI PROBLEMA ES QUE A LA HORA DE GUARDAR EL DOCUMENTO DE WORD LO GUARDA EN LA MISMA DIRECCIÓN QUE LA CARPETA QUE HE CREADO Y NO DENTRO DE ELLA OSEA

SI LA CARPETA QUE HE CREADO ES EN C:\ALMACEN\TAREAS\1 (1 ES NOMBRE DE LA CARPETA)
EL ARCHIVO LO ALMACENA EN C:\ALMACEN\TAREAS\1.DOC (ES NOMBRE DEL ARCHIVO)

NO ENCUENTRO LA MANERA DE ALMACENAR EL DOCUMENTO EN SU CARPETA.
AGRADECERÍA QUE ME ECHARAIS UNA MANO. GRACIAS DE ANTEMNO.
uso office 2003 osea que no puedo usar FileSystemObject

GRACIAS



Private Sub Comando88_Click()

On Error GoTo manejadorError

Dim appWord As Word.Application
Dim docs As Word.Documents
Dim doc As Word.Document
Dim campoWord As Object
Dim strRutaPlantilla As String
Dim strTestPlantilla As String
Dim strNuevoDocumento As String
Dim archivo
Dim strDirectorio

' Ruta completa de la plantilla de Word
strRutaPlantilla = "\\10.39.226.12\asuntos\tareas\PLANTILLAS\PLANTILLA1.doc"
' Ruta y nombre del nuevo documento

archivo = Dir("\\10.39.226.12\asuntos\tareas\ " & Me.N_Tarea, vbDirectory) ' directorio o carpeta a crear
strDirectorio = "\\10.39.226.12\asuntos\tareas\" & Me.N_Tarea

If archivo = "" Then 'Si la carpeta no existe
MkDir ("\\10.39.226.12\asuntos\tareas\ " & Me.N_Tarea) ' se crea la carpeta
Else
MsgBox "LA CARPETA YA EXISTE"
carpeta = "\\10.39.226.12\asuntos\tareas\ " & Me.N_Tarea
Shell "explorer.exe " & carpeta, vbNormalFocus 'si existe se abre

Exit Sub
End If

strNuevoDocumento = "\\10.39.226.12\asuntos\tareas\" & Me.N_Tarea & ".doc"
'strNuevoDocumento = strDirectorio & "\" & Me.N_Tarea & ".doc"


Set appWord = CreateObject(Class:="Word.Application")
Set docs = appWord.Documents
Set doc = docs.Add(strRutaPlantilla)

With appWord
.Visible = True
.ActiveDocument.SaveAs strNuevoDocumento
.Activate
End With

manejadorErrorSalir:
Exit Sub
manejadorError:
If Err.Number = 429 Then
Set appWord = CreateObject(Class:="Word.Application")
Resume Next
Else
MsgBox Err.Description, , "Error Nº: " & Err.Number
Resume manejadorErrorSalir
End If


End Sub