Visual Basic - ayuda con una ruta

Hola a todos quiero una ayuda de su parte para solucionar esto:

año = Year(Date) - 1 & " - " & Year(Date) ' hace el ciclo escolar
ChDrive "D" ''cambia de disco
ruta = "\\subdireccion\est22\exalumnos\"
''' subdireccion es el servidor en red, est22 es un directorio y exalumnos es un subdirectorio
ChDir ruta '''' cambia de directorio
MkDir año ''' hace una carpeta con el ciclo escolar, supuestamente dentro de exalumnos
TablaAlumnos
Rs.MoveFirst
Do While Not Rs.EOF
On Error Resume Next
If Rs!grado = "3° A" Or Rs!grado = "3° B" Or Rs!grado = "3° C" Or Rs!grado = "3° D" Then
deudor = Rs!nombre & ".jpg" ''toma un nombre
Origen = "\\subdireccion\est22\fotos\" & deudor '' copia la foto del alumno
destino = ruta & "\" & año & "\" ' cambia a: est22\exalumnos\2012 - 2013\
fso.MoveFile Origen, destino ' cambia la foto de allá al último directorio
deudor = Rs!curp & ".jpg"
Origen = "\\subdireccion\est22\fotos\" & deudor
destino = ruta & "\" & año & "\"
fso.MoveFile Origen, destino
End If
Rs.MoveNext
Loop
Rs.Close

el programa corre bien pero crea un subdirectorio "2012-2013" dentro de la carpeta est22 y no dentro de exalumnos, no copia las fotos y repito el programa no da lata, termina bien, qué es lo que me está faltando? en corriendo la aplicación en directorio local(app.path) sin red si funciona perfecto, hay algo en la ruta que me me haga falta? GRACIAS, de antemano

Recuerdo haber hecho esto mismo que planteas en VB 4.0, pero al pasar VB 6.0 no me resulto, no recuerdo porque, y ahora pongo todo el camino osea "D:\subdireccion\est22\exalumnos" , tanto para abrir ficheros o crear Directorios.
MkDir "D:\subdireccion\est22\exalumnos\" & año.

Hola Pedro Luis
Gracias por tu ayuda. Esta adecuación la haces en red?, porque yo en el equipo local lo hago con el app.path y no tengo ningún problema, lo es cuando adecuo la ruta para trabajar en red, para abrir la base de datos no hay problema tampoco, osea pongo: "subdireccion\est22\est22.mdb".
Voy a probarla ojalá me resulte.
Gracias nuevamente.

Yo siempre trabajo en red, y como no se en que unidad va atrabajar el usuario todo gira en torno a app.path, y me monto la aplicacion en directorios que cuelgan del ejecutable.