How do I capture the path from a webbrowser control save file

Imports System
Imports System.Net
Imports System.ComponentModel

Private WithEvents downloadClient As WebClient

Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
    If e.Url.Segments(e.Url.Segments.Length - 1).EndsWith("xlsx") Then
        e.Cancel = True
        Dim filepath As String

        Dim sd As New SaveFileDialog()
        sd.Filter = "Excel Workbook Files|*.xlsx"
        sd.FileName = e.Url.Segments(e.Url.Segments.Length - 1)
        If sd.ShowDialog() = DialogResult.OK Then
            filepath = sd.FileName
            downloadClient = New WebClient
            'downloadclient.DownloadFileCompleted = client_downloadComplete()

            downloadClient.DownloadFileAsync(e.Url, filepath)
            'store the file path here for later use
            Me.Text = filepath
        End If
        sd.Dispose()
    End If
End Sub

Private Sub downloadClient_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles downloadClient.DownloadFileCompleted
    MsgBox("File Downloaded - a")
End Sub


Private Sub downloadClient_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles downloadClient.DownloadProgressChanged
    ProgressBar1.Maximum = e.TotalBytesToReceive
    ProgressBar1.Value = e.BytesReceived
    Application.DoEvents()
End Sub