Visual Basic - bucles

Hola que tal necesito ayuda para correr un programa utlizando do while loop que me calcule al cabo de cuantos años puedo tener un millon de pesos. El usuario introduce una cantidad y esta genera el 8.9% de interes anual. Hice algo como esto pero no me hace lo que quiero:

Private Sub Command1_Click()
inversion = Val(Text1.Text)
años = 0
Do While años <= (inversion = 1000000)
años = años + 1
interes = (inversion * (8.9 / 100))
inversiontota = (interes + inversion)
Label1.Caption = años
Loop
End Sub

Ojala puedan ayudarme es urgente gracias

prueba este, si funciona bien y fíjate en las diferencias con el tuyo

inversion = Val(Text1.Text)
años = 0

While (inversion <= 1000000)
años = años + 1
interes = (inversion * (8.9 / 100))
inversion = (interes + inversion)
Wend

Label1.Caption = años

saludos

mira se sale pero no se para que funciona el wend o cual es la diferencia me podrias decir porfavor

QUE TAL, PRUEBA CON ESTE CODIGO, DENTRO DEL EVENTO CLICK DEL BOTON

Dim INVERSION As Long, INTERES As Long, MONTO As Long, AÑO As Long
INVERSION = Val(Text1)
MONTO = INVERSION
INTERES = INVERSION * (8.9 / 100)
Do While MONTO <= 1000000
MONTO = MONTO + INTERES
AÑO = AÑO + 1
Loop
Label1.Caption = "TARDARA: " & AÑO & " AÑOS PARA OBTENER UN MONTO DE: " & MONTO

SOLO TEGNO UNA PEQUEÑA DUDA, LOS INTERESES QUE SE CALCULAN SOLO SE CALCULAN SOBRE LA INVERSION INICIAL O SE DEBERIAN CALCULAR SOBRE EL MONTO QUE SE VA ACUMULANDO DE LA INVERSION Y LOS INTERESES????????

ESPERO QUE ESTE CODIGO SIRVA DE ALGO.

SALUDOS Y MUCHA SUERTE

CARLOS GOMEZ

es largo de explicarte la diferencia entra en la ayuda y lo verás.

te traspaso los ejemplos de las ayudas de VB

WHILE

Contador = 0 ' Inicializa variable.
While Contador < 20 ' Comprueba valor del Contador.
Contador = Contador + 1 ' Incrementa Contador.
Wend ' Finaliza el bucle End While
' cuando Contador > 19.
Debug.Print Contador ' Imprime 20 en la ventana de
' Depuración.

DO

Control = True: Contador = 0 ' Inicializa variables.

Do ' Bucle externo.

Do While Contador < 20 ' Bucle interno.
Contador = Contador + 1 ' Incrementa Contador.
If Contador = 10 Then ' Si la condición es verdadera.
Control = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Control = False ' Sale inmediatamente del bucle
' externo.

SALUDOS