Función If con varias condiciones

Hola, tengo este código:

Private Sub File1_Click()
On Error GoTo ImagenError

If Image1.Picture = false then
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Else
Image2.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End If

If Image3.Picture = 0 Then
Image3.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End If
If Image4.Picture = 0 Then
Image4.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End If
If Image5.Picture = 0 Then
Image5.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End If
ImagenError:
If Err.Number = 481 Then
MsgBox Err.Description
End If
End Sub

Donde poseo 5 image y voy cargando en cada una de ella archivos jpg, yo quisiera saber como hago para que al presionar el codigo (un numero) del archivo jgp que deseo cargar, este se cargue automaticamente en el image1, luego al presionar otro codigo (siempre que el image1 tenga una imagen cargada) se cargue el image2, luego el image3 y asi sucesivamente, por ahora solo lo pude hacer con 2 image

Nota: en el ejemplo que pongo yo cargo el jpg y se carga en el image1, luego cargo otro y se carga en el image2, luego coloco un tercero pero se carga en el image3, image4, image5... Todos al mismo tiempo, y lo que yo quiero es que se cargue en el image que sigue, siempre y cuando el anterior ya tenga cargada la imagen, espero haberme hecho entender, muchas gracias