Lave breden om til højden

Hej

Lige nu har jeg følgende script til at rezise et billede så den bliver 200 i breden, men hvordan laver jeg det om til højden?

    intXSize = "200"
    intYSize = (intXSize / Image.MaxX) * Image.MaxY
    Image.ResizeR intXSize, intYSize
    Image.FileName = server.mappath("Pics/" & File.FileName & "")
    Image.SaveImage