Duvidas sobre um programa de contador

Bom dia pessoal, estou tendo problemas com um programa "contador".
em tese ele teria que fazer o seguinte:quando eu clicasse no botão iniciar ele ira começar a listar números impares de 1 a 21, mostrando todos um debaixo do outro.
assim:
1
3
5
7
9
11
13
15
17
19
21
Porem quando eu clico no iniciar só aparece o numero 21 na lista.
as linhas de comando que eu usei foram essas:

Private Sub Command1_Click()
Dim entrada As Integer
Dim cont As Integer

cont = 1
While (cont <= 21)
console.writeline (cont)
cont = cont + 2
Wend

End Sub
obs: meu visual basic e a versão 6.0( sou obrigado a usar porque meu professor não se atualista e só usa essa versão)

alguém me ajude por favor, tenho que entregar isso 6º feira agora com urgência.
se puderem me ajudar fico agradecido.