Premesso che io non conosco (e aborro ) VB, mi pare di aver capito che le uniche variabili in gioco che ti interessano sono NewLar e NewAlt.

Nel caso del codice che hai postato queste vengono impostate uguali alla più piccola delle dimensioni dell'immagine originale (cioè se è piu alta che larga si fa un quadrato di lato uguale alla larghezza, e viceversa).

Nel tuo caso basterà valorizzare NewLar e NewVal ai valori desiderati per ottenere un rettangolo. Il resto del codice, immagino, farà il crop.