demonstrativo 'Return' em sub ou conjunto não pode retornar um valor
Sub procedimentos e propriedade Set procedimentos não podem retornar valores.
ID de erro: BC30647
Para corrigir este erro
Alterar o procedimento corrente para uma função ou para um Get procedimento de propriedade se o procedimento corrente fizer parte de uma propriedade.
Você pode efetivamente retornar valores de Sub procedimentos modificando o valor dos parâmetros passados por referência usando o ByRef palavra-chave.