Как вывести полное имя файла рисунка - VBA

Формулировка задачи:

Реализовать интерфейс с объектами, представленными на рисунке. Для кнопок CommandButton1 и CommandButton2 загружаются изображения при инициализации формы UserForm1. При нажатии на кнопку с помощью меток Label1 и Label2 выводится полное имя файла рисунка.

Решение задачи: «Как вывести полное имя файла рисунка»

textual
                            Листинг программы 
                        

                            'ГЏГ°ГЁ ГЇГҐГ°ГўГ®Г¬ Г§Г*ГЇГіГ±ГЄГҐ ГґГ®Г°Г¬Г» ГґГ®Г°Г¬ГЁГ°ГіГҐГ¬ Г±Г®Г±ГІГ*Гў Г§Г®Г®ГЇГ*Г°ГЄГ*.
Private Sub UserForm_Initialize()
    Dim oIE As Object, oIEDoc As Object, oElems As Object, oAnc As Object
    Dim oHTTP As Object, oStream As Object, oCB As Object
    Dim animals() As String, animalColl As New Collection
    Dim urls As Variant, lnk As Variant
    Dim i As Long, n As Long, newi As Long
    Dim t As String, p As String, picName As String
    On Error Resume Next
    Set oIE = CreateObject("InternetExplorer.Application")
    On Error GoTo 0
    If oIE Is Nothing Then
        MsgBox "Г€Г§ГўГЁГ*ГЁГІГҐ, Г*Г® Г¤Г«Гї Г°Г*ГЎГ®ГІГ» Г¤Г*Г*Г*Г®ГЈГ® Г¬Г*ГЄГ°Г®Г±Г* ГўГ*Г¬ ГЇГ°ГЁГ¤ГҐГІГ±Гї ГіГ±ГІГ*Г*Г®ГўГЁГІГј Internet Explorer."
        Unload Me
        Exit Sub
    End If
    urls = Array( _
"https://www.google.ru/search?q=%D0%BC%D0%BB%D0%B5%D0%BA%D0%BE%D0%BF%D0%B8%D1%82%D0%B0%D1%8E%D1%89%D0%B8%D0%B5+%D0%B6%D0%B8%D0%B2%D0%BE%D1%82%D0%BD%D1%8B%D0%B5&tbm=isch", _
"https://www.google.ru/search?q=%D0%BF%D1%82%D0%B8%D1%86%D1%8B&tbm=isch", _
"https://www.google.ru/search?q=%D1%80%D1%8B%D0%B1%D1%8B&tbm=isch") 'Г‘Г±Г»Г«ГЄГЁ Г*Г* ГЇГ®ГЁГ±ГЄ Г·ГҐГ°ГҐГ§ Google ГЄГ*Г°ГІГЁГ*Г®ГЄ - Г¬Г«ГҐГЄГ®ГЇГЁГІГ*ГѕГ№ГЁГµ, ГЇГІГЁГ¶ ГЁ Г°Г»ГЎ.
    For i = 0 To 2
        oIE.Navigate urls(i) 'ГѓГіГЈГ«ГЁГ¬ ГЄГ*Г°ГІГЁГ*ГЄГЁ Г·ГҐГ°ГҐГ§ Internet Explorer.
        While oIE.Busy Or oIE.ReadyState < 4 'Г†Г¤ГҐГ¬, ГЇГ®ГЄГ* ГўГҐГЎ-Г±ГІГ°Г*Г*ГЁГ¶Г* Г§Г*ГЈГ°ГіГ§ГЁГІГ±Гї.
            DoEvents
        Wend
        Set oIEDoc = oIE.Document
        Set oElems = oIEDoc.getElementsByClassName("rg_l")
        For Each oAnc In oElems 'Г„Г«Гї ГЄГ*Г¦Г¤Г®ГЈГ® ГЁГ§Г®ГЎГ°Г*Г¦ГҐГ*ГЁГї-ГЈГЁГЇГҐГ°Г±Г±Г»Г«ГЄГЁ Г*Г* Г±ГІГ°Г*Г*ГЁГ¶ГҐ...
            i = i + 1
            lnk = oAnc.getAttribute("href") 'a) ГЇГ®Г«ГіГ·Г*ГҐГ¬ Г§Г*Г*Г·ГҐГ*ГЁГҐ Г*ГІГ°ГЁГЎГіГІГ* "href"
            lnk = Mid(lnk, InStr(lnk, "imgurl")) 'ГЎ) ГЇГ®Г«ГіГ·Г*ГҐГ¬ ГўГ*ГіГІГ°ГЁ Г*ГҐГЈГ® ГЇГ*Г°Г*Г¬ГҐГІГ° "imgurl"
            lnk = Mid(Left(lnk, InStr(lnk, "&") - 1), 8) 'Гў) Г®ГІГ±ГҐГЄГ*ГҐГ¬ Г±Г«Г®ГўГ® "imgurl=" ГЁ ГўГІГ®Г°ГЁГ·Г*Г»ГҐ ГЇГ*Г°Г*Г¬ГҐГІГ°Г».
            'Debug.Print lnk
            animalColl.Add lnk
        Next oAnc
        If animalColl.Count = 0 Then
            MsgBox "ГѓГҐГ*ГЁГ*Г«ГјГ*Г®! ГЉГ*ГЄ ГўГ» ГіГ¬ГіГ¤Г°ГЁГ«ГЁГ±Гј Г±Г*Г®ГўГ* ГЇГ®Г«ГіГ·ГЁГІГј ГЅГІГі Г®ГёГЁГЎГЄГі? ГђГ*Г±Г±ГЄГ*Г¦ГЁГІГҐ Г±ГўГ®Гѕ ГЁГ±ГІГ®Г°ГЁГѕ Aksima Г*Г* ГґГ®Г°ГіГ¬ГҐ cyberforum.ru"
            Unload Me
            Exit Sub
        End If
    Next i
    Set oIE = Nothing
    'Г‡Г*Г*Г®Г±ГЁГ¬ Г±ГЇГЁГ±Г®ГЄ Г±Г±Г»Г«Г®ГЄ Гў Г¬Г*Г±Г±ГЁГў - Г± Г¬Г*Г±Г±ГЁГўГ®Г¬ ГіГ¤Г®ГЎГ*ГҐГҐ.
    n = animalColl.Count - 1
    ReDim animals(n) As String
    For i = 0 To n
        animals(i) = animalColl(i + 1)
    Next i
    'ГЏГҐГ°ГҐГ¬ГҐГёГЁГўГ*ГҐГ¬ Г±Г±Г»Г«ГЄГЁ Г±Г«ГіГ·Г*Г©Г*Г»Г¬ Г®ГЎГ°Г*Г§Г®Г¬.
    Randomize
    For i = 0 To 1
        newi = Int(Rnd() * (n + 1))
        t = animals(i)
        animals(i) = animals(newi)
        animals(newi) = t
    Next i
    For i = n To 1 Step -1
        newi = Int(Rnd() * (i + 1))
        t = animals(i)
        animals(i) = animals(newi)
        animals(newi) = t
    Next i
    'Г€Г§Г®ГЎГ°Г*Г¦ГҐГ*ГЁГї ГЇГ® Г¤ГўГіГ¬ ГЇГҐГ°ГўГ»Г¬ Г±Г±Г»Г«ГЄГ*Г¬ Г§Г*ГЈГ°ГіГ¦Г*ГҐГ¬ Г*Г* ГЄГ*Г®ГЇГЄГЁ,
    'ГЁ ГўГ±ГҐ Г±Г±Г»Г«ГЄГЁ Г±Г®ГµГ°Г*Г*ГїГҐГ¬ Гў Г±ГЄГ°Г»ГІГ®ГҐ ГІГҐГЄГ±ГІГ®ГўГ®ГҐ ГЇГ®Г«ГҐ Г¤Г«Гї
    'Г¤Г*Г«ГјГ*ГҐГ©ГёГҐГЈГ® ГЁГ±ГЇГ®Г«ГјГ§Г®ГўГ*Г*ГЁГї.
    tbAnimals = Join(animals, ",")
    Set oHTTP = CreateObject("MSXML2.XMLHTTP")
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 1
    p = ThisWorkbook.Path & "\"
    For i = 0 To 1
        picName = Mid(animals(i), InStrRev(animals(i), "/") + 1)
        oHTTP.Open "GET", animals(i), False
        oHTTP.Send
        oStream.Open
        oStream.Write oHTTP.responseBody
        oStream.SaveToFile p & picName
        oStream.Close
        Set oCB = Me.Controls("cbAnimal" & i + 1)
        oCB.Picture = LoadPicture(p & picName, oCB.Width, oCB.Height)
        Kill p & picName
    Next i
    Set oStream = Nothing
    Set oHTTP = Nothing
    f = True
End Sub
                        