Dim filePath As String = Server.MapPath("YourPathHere")
Dim targetFile As System.IO.FileInfo = New System.IO.FileInfo(filePath)
If targetFile.Exists Then
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" + targetFile.Name)
Response.AddHeader("Content-Length", targetFile.Length.ToString)
Response.ContentType = "application/octet-stream"
Response.WriteFile(targetFile.FullName)