Caricamento multiplo immagini tramite tasto sfoglia

Salve, ho un problema con questo codice

 Dim ApriFile As New OpenFileDialog

        Try
            With ApriFile
                .Title = "Apri File!"
                .Filter = "Image Files (*.jpeg;*.png;*.jpg;*.gif)|*.jpeg;*.png;*.jpg;*.gif"
                .InitialDirectory = "C:\"
                If ApriFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
                    Do Until ApriFile.ShowDialog() = Windows.Forms.DialogResult.Cancel


                        Doc8.Text = ApriFile.FileName
                        PictureBox1.Visible = False
                        PictureBox1.Image = New Bitmap(ApriFile.FileName)
                        IO.File.Copy(Doc8.Text, IO.Path.Combine(Path & "\" & Dati_Clienti.Codice & Dati_Clienti.numcod & "-" & Dati_Clienti.aNome.Text & Dati_Clienti.aCognome.Text & "\" & "Foto", IO.Path.GetFileName(Doc8.Text)), True)
                        PictureBox1.Image.Dispose()
                        ApriFile.FileName = ""
                        ApriFile.Dispose()
                        IO.Path.GetFileName("")
                        IO.Path.Combine()
                        Doc8.Text = ""

                    Loop
                End If
            End With

        Catch ErrorApertura As Exception
            MsgBox(ErrorApertura.Message, MsgBoxStyle.Critical +
            MsgBoxStyle.OkOnly, "")
            Exit Sub
        End Try
    End Sub

Praticamente quando provo a fare la selezione multipla delle immagini me ne salta 1 ad esempio se seleziono 4 immagini me ne carica solo 2