La tua "colpa" è comunque di non sapere assolutamente di cosa si stia parlando.
Parli di Visual Basic senza cognizione di causa, scrivi a=ret senza conoscere la differenza con ret=a o scrivi if(x<=val<=y) senza accorgerti (anche se ripetutamente avvertita) dell'errore.
A questo punto quello che hai scritto non è la soluzione ed è lontana dalla soluzione, impossibile da correggere se non riscrivendola integralmente.