[Resolvido]Inserir mais de uma foto utilizando o mesmo botão

Pessoal, no meu arquivo, criei um botão para inserir uma foto, cujo código é o seguinte:

Private Sub BuscarFoto_Click()
Dim s As String
's = OpenCommDlg()
s = fncLocalizarArquivo()
If s <> "" Then
   foto = s
   foto_AfterUpdate
End If
End Sub

Private Sub foto_AfterUpdate()
Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If Err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub

Agora surgiu a necessidade de inserir mais duas fotos em cada registro. Para isso, criei mais dois campos na tabela, nomeando-os de foto1 e foto2 e dois objetos Imagem com os nomes Imagem4 e Imagem5 no formulário.
Porém, não consigo fazer com que ao clicar no mesmo botão BuscarFoto, sejam inseridas uma foto de cada vez.

Em virtude desta dificuldade, criei dois botões e inseri os eventos em cada um. Sei que não é o mais indicado e também não ficou elegante, porém, foi o que consegui e serviu ao meu propósito.
Diante disso, dou por Resolvido o presente tópico.