Visual Basic - contador

Hola a todos!!!
como puedo hacer que aparezca en un textbox el valor del contador cuando este va aumentando?
lo estoy haciendo en un ciclo for, este es el codigo, no se si estará bien. desde ya muchas gracias!!!

Private Sub Text1_Change(cont As Integer)
cont = i
i = 0
If cajatexto.Text <> "" Then
i = i + 1
'Next i
End If
End Sub

me parece que el codigo que colocas no es correcto, no lo mire en detalle, pero hay cosas que no me cierran, lo que aparezca, si es que aparece algo va a ser siempre 1, porque inicializas el i = 0 cada vez que entra al evento, en fin, revisalo mejor, porque creo que asi no funciona la logica
suerte

ok, ya hice los cambios, pero de todas maneras no muestra nada en la caja de texto donde quiero que se refleje el resultado del contador