Adaptando para VB.NET e padrão Citi