Download a file and use SaveFileDialog.Filename

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strFileName As String
        

        strFileName = SaveFD.FileName
        SaveFD.InitialDirectory = "C:\"
        SaveFD.Title = textbox.Text
        SaveFD.Filter = "All Files|*.*"
        SaveFD.ShowDialog()
        If My.Computer.Network.IsAvailable Then
            If My.Computer.Network.Ping("74.125.67.100") Then
                MsgBox("Access Granted")
                My.Computer.Network.DownloadFile(textbox.Text, strFileName)
            Else
                MsgBox("ERROR")

            End If

        End If
    End Sub
End Class

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Startnumber As Integer
        Dim Endnumber As Integer
        Dim i As Integer
        Startnumber = ListBox1.TopIndex
        Endnumber = ListBox1.Items.Count


        For i = Startnumber To Endnumber

            My.Computer.Network.DownloadFile(ListBox1.Items.It  em(1), "C:\test" & i & ".zip", "", "", True, 100, True)
            MsgBox("Download of " & i)
            ListBox1.Items.RemoveAt(1)
        Next i
    End Sub