Sobre reducción de imagenes

[El_Metallick]

Hola maestros... hace algun tiempo encontre un script que me permitia hacer las miniaturas de las imagenes de una carpeta... el problema es que me las hace pero cuando reduzco fotos muy grandes (sacadas con camara digital) y las quiero reducir a 640x480 me las deja pero con una nitidez muy mala... me las deja como con pixeles corridos no se si sera un problema de mi funcion... si es asi me podrian decir como mejorar esa falla... bueno gracias de antemano y saludos

Código:

<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Collections"%>
<%@Page aspcompat=true Language ="VB" debug ="true" %>
<%
Dim archivo, carpeta As String 'para el nombre de archivos y carpetas
Dim sArchivos() As String 'array con los nombres de archivos y carpetas
Dim carpetaInfo As DirectoryInfo 'objeto para extraer propiedades de las carpetas
Dim archivoInfo As FileInfo 'objeto para extraer propiedades de los archivos
Dim AnchoMiniatura as Integer, AltoMiniatura as Integer
Dim Imagen as System.Drawing.Image

' Definimos las rutas donde grabará los archivos
Dim RutaMiniatura as String
RutaMiniatura = "./s/m/"

'array con los nombres de archivo en el directorio actual
sArchivos = Directory.GetFiles("C:\Felipe\Mi Pagina\pruebas\s\")
            
'Obtener lista de archivos contenidos en el directorio actual
For Each archivo In sArchivos
   archivoInfo = New FileInfo(archivo)
   Response.Write("" & archivoInfo.Name & "<br>")

   Imagen = System.Drawing.Image.FromFile("C:\Felipe\Mi Pagina\pruebas\s\" & archivoInfo.Name)
  
   ' Definimos el nombre de la miniatura
   Dim NombreMiniatura as String
   NombreMiniatura = "" & archivoInfo.Name & ""
               
   ' Definimos las dimensiones de la miniatura
   AnchoMiniatura = 640
   AltoMiniatura = 480
  
   ' Creamos la Miniatura con las dimensiones enviadas, y la definimos como Imagen
   Dim Miniatura as System.Drawing.Image
   Miniatura = Imagen.GetThumbnailImage(AnchoMiniatura, AltoMiniatura, Nothing, New IntPtr())

   ' Grabamos la Miniatura en disco con formato JPG
   Miniatura.Save(Server.MapPath(RutaMiniatura & NombreMiniatura), ImageFormat.JPEG)
Next
Response.End() 'detiene la carga de la página
%>