Как переименовать текущий отображаемый документ в элементе управления веб-браузера в пользовательской форме?

Question

Я занят пользовательской формой, чтобы разрешить пользователю просматривать PDF, сделать выбор и переименовать PDF. PDF отображается в элементе управления веб-браузера.

Часть дисплея работает нормально, используя этот код:

Private Sub ListBox1_Change()
Dim fname As String
fname = Me.ListBox1.Value
Dim smURL As String
smURL = "\My Pictures\ControlCenter4\Scan\"
Me.WebBrowser1.Navigate2 smURL & Me.ListBox1.Value

Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE


End 

Это более поздняя часть кода, используемая для компиляции строки. Вот где возникает ошибка`

Private Sub CommandButton54_Click()
Dim val1, val2, val3, val4, val5, val6 As String
val1 = Me.ListBox1.Value
val2 = "\AndreG1\My Pictures\ControlCenter4\Scan\"
val3 = val2 + val1


val4 = Me.TextBox11.Value
val5 = val2 + val4
Unload Me

Name val3 As val5 ''This is where I get the error

MsgBox "File Has Been Re Named", vbOKOnly


With Controls.Add("Forms.WebBrowser.1")
    .Name = "WebBrowser1"

    .Height = 22
    .Left = 6
    .Top = 12
    .Width = 72
    .Visible = True
  End With




Me.WebBrowser1.Navigate2 val5

Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Me.WebBrowser1.Visible = True`

Я получаю ошибку 75. Ошибка доступа к файлу / файлу.

Я подозреваю, что это связано с блокировкой файла элементом управления веб-браузера? Я попытался: выгрузить пользовательскую форму, а затем изменить имя, удалить элемент управления веб-браузера с помощью me.controls navigate2 about: blank

Я потерян.

Пожалуйста, помогите