以下で、最初のResponse.Write文がエラーになります。何か足りないのでしょうか？
 Dim encode As System.Text.Encoding
 Dim td2 As String
 td2 = "M_Test.CSV"
 encode = System.Text.Encoding.GetEncoding("Shift-JIS")  '文字コードにShiftJISを指定。(UTF8の場合は指定不要)
Response.AppendHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(td2))
Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift_jis")
Response.ContentType = "text/csv"

Response.Write("Death Data")　　＜－ここで、System.IndexOutOfRangeException: 'インデックスが配列の境界外です。'となります。