Meu código VB, não consegui identificar o erro. O único retorno que tenho, dentro do código, é Nothing
