Dim file As System.IO.FileInfo = New System.IO.FileInfo(filename)
If file.Exists Then
                 Response.Clear()
                 Response.AddHeader("Content-Disposition", "attachment; 
filename=" & file.Name)
                 Response.AddHeader("Content-Length", file.Length.ToString())
                 Response.ContentType = "application/msword"
                 Response.WriteFile(file.FullName)
                 Response.End()
Else
                 Response.Write("Document doesn't exist.")
End If