Hola, la idea de urjose es la buena, y es lo más sencillo que hay. No hay nada más sencillo.
Esto mismo lo puedes hacer para el día del año, la semana del año, la hora del día...
Por ejemplo, para 10 fotos...
Dim cFoto, nDia
nDia = Day()
Select Case nDia
Case 1, 1*3 '3
cFoto = "Foto1.jpg"
Case 2, 2*3 '6
cFoto = "Foto2.jpg"
Case 3, 3*3 '9
...
End Select
Por supuesto, este código se puede optimizar mucho más, pero para entender la dinámica sirve.
Espero te ayude. Un saludo. :)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>