Non riesco a capire cosa hai fatto.
Un codice come il tuo mi rifiuto di cercare di interpretarlo.

Riposta il codice usando i codici VB (ad esempio mediante il bottone # sopra il form di inserimento) e sistemando opportunamente le indentazioni.