How to download multiple files from ftp using ftpwebrequest to local folder in vb.net

Private Sub downloadFromFtp2()
Dim ftpreq As FtpWebRequest = DirectCast(WebRequest.Create("ftp://******/foldername/*.pgp"), FtpWebRequest)
Dim ftpreqname As FtpWebRequest = DirectCast(WebRequest.Create("ftp://******/foldername/"), FtpWebRequest)
ftpreq.Method = WebRequestMethods.Ftp.DownloadFile
ftpreqname.Method = WebRequestMethods.Ftp.ListDirectory
ftpreq.Credentials = New NetworkCredential("Username", "Password")
ftpreqname.Credentials = New NetworkCredential("Username", "Password")
Dim response As FtpWebResponse = CType(ftpreq.GetResponse, FtpWebResponse)
Dim nameresponse As FtpWebResponse = CType(ftpreqname.GetResponse, FtpWebResponse)
Dim responsestream As Stream = response.GetResponseStream
Dim responsestream_name As Stream = nameresponse.GetResponseStream
Dim reader As StreamReader = New StreamReader(responsestream)
Dim reader_name As StreamReader = New StreamReader(responsestream_name)
Dim dir As New List(Of String)
Dim line As String = reader_name.ReadLine
While Not String.IsNullOrEmpty(line)
dir.Add(line)
line = reader_name.ReadLine
end While
' reader_name.Close()
' nameresponse.Close()
Dim result As String = "0"
Dim count As Integer = 0
Dim endof As Integer = dir.Count - 1
For c As Integer = 0 To endof
If dir.Item(count).ToString.Contains(".pgp") Then
result = dir.Item(count).ToString
Else
End If
MsgBox(result)
Dim output As String = reader.ReadToEnd
' Dim output As Stream = File.Create("c:\foldername\.pgp")
Dim writer As StreamWriter = New StreamWriter("c:\foldername\" + result + ".pgp")
writer.Write(output)
MsgBox(response.StatusDescription)
count = count + 1
Next
' reader.Close()
' response.Close()
End Sub