Estou a tentar criar uma subrotina capaz de ler todo o alfabeto de A até Z e que guarde/apresente as letras lidas em duplicado (AA, BB, CC, ...) em VB6
mas ainda não deu certo.
A minha tentativa:
Do while alfa <> z
alfa = alfa + a
lstalfabeto.additem alfa
Loop