【VBA】ログイン画面があるサイトをスクレイピングする

Sub sample()
    Dim Driver As New Selenium.WebDriver
    Dim myBy As New By
    'ログインページを開く
    Driver.Start "chrome", "https://admin.blog.fc2.com/control.php?mode=control&process=backup"
    Driver.Get "/"
    
    With Driver
        'ユーザ名とパスワードを入れてログインボタンを押す
        .FindElementById("id").SendKeys "xxxxxxxx@yahoo.co.jp"
        .FindElementById("pass").SendKeys "password"
        .FindElementByName("image").Click
    End With
    
    Driver.Close
    Set Driver = Nothing
End Sub

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)

Public Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub sample()
    Dim Driver As New Selenium.WebDriver
    Dim myBy As New By
    Driver.Start "chrome", "https://admin.blog.fc2.com/control.php?mode=control&process=backup"
    Driver.Get "/"
    
    With Driver
        .FindElementById("id").SendKeys "xxxxxxxx@yahoo.co.jp"
        .FindElementById("pass").SendKeys "password"
        .FindElementByName("image").Click
        .Get "/control.php?mode=control&process=backup"
        
        '画像一覧のページを開く
        .Get "/control.php?mode=control&process=backup&type=file&ext=pict&page=1"
        'タグがimgの要素を全て取得する
        Set images = .FindElements(myBy.Tag("img"))
        For Each Image In images
            '画像のURLを取得
            src = Image.Attribute("src")
            'URLからファイル名を取得　　　
            pos = InStrRev(src, "/")
            Filename = Mid(src, pos + 1)
            '画像ファイルを保存する
            Call GetImageFile(CStr(src), "C:\image\" & Filename)
        Next
    End With
    
    Sleep 10000
    Driver.Close
    Set Driver = Nothing
End Sub

Sub GetImageFile(ImgName As String, SaveName As String)
    Dim SaveFileName As String, DownloadFile As String, Ret As Long
    If ImgName = "" Then Exit Sub
    SaveFileName = SaveName
    DownloadFile = ImgName
    Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
    If Ret <> 0 Then
        MsgBox "エラーが発生しました"
    End If
End Sub