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

'Ïðè ïåðâîì çàïóñêå ôîðìû ôîðìèðóåì ñîñòàâ çîîïàðêà.
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