Tomar ciertos dígitos de un texbox y copiarlos en otro texbox

buenas tardes expertos, les cuento que vengo haciendo un proyecto en vb 6.0 y quiero saber si es posible lo siguiente:

tengo un textbox llamado ingreso que solo recibe 8 dígitos, un texbox llamado cod y un textbox llamado suc

necesito que cuando por ejemplo yo escriba en ingreso: 19283746 el textbox llamado cod muestre el numero 9, es decir, el segundo dígito escrito en el texbox llamado ingreso

y en el textbox llamado suc muestre el numero 2, es decir, el tercer dígito escrito en el textbox ingreso

si existe la posibilidad de realizar esto con visual basic les agradecería la información que me puedan brindar para realizarlo