Descomprimir 3 archivos diferentes con el mismo nombre

Alguien me podria ayudar con este problemita por Favor.

Descomprimir 3 archivos diferentes con el mismo nombre a diferentes rutas.

Con la ayuda de hector me ayudo con este codigo, pero ahora tengo la
necesidad un poquito diferente:
Como puedo modificar el siguiente codigo para hacer lo siguiente:

Necesito descompactar diariamente, estos archivos van cambiando de dia
ejemplo: RS260904.ZIP, RS270904.ZIP, RS280904.ZIP, RS290904.ZIP
.y asi dia con dia, Estos tres archivos en tres direcciones
diferentes, pero con el mismo nombre:

Ruta
en donde esta el archivo Archivo

S:\ RS270904.ZIP
T:\ RS270904.ZIP
U:\ RS270904.ZIP


Destino
en que se deberan de descompactar

C:\SIEF01L
C:\SIEF02VL
C:\SIEFBAS1

Osea

Ruta Archivo Destino

S:\ RS270904.ZIP C:\SIEF01L

Codigo:

Sub Descomprimir_ver_soluciones()
Dim EnDirectorio As String: EnDirectorio = ActiveWorkbook.Path
Dim Descomprime As String: Descomprime = EnDirectorio & "\unzip.exe -o "
Dim EsteArchivo As String: EsteArchivo = EnDirectorio & "\FW" &
Format(Date, "ddmmyy") & ".zip -d "
Dim Comando As String: Comando = Descomprime & EsteArchivo & EnDirectorio
Shell Environ("comspec") & " /c " & Comando
End Sub

Por su ayuda por anticipado Muchas Gracias.