Programa basico de operaciones de un banco encuanto a las tazas de interes segun los porcentajes a demandar

Public Class Form17

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim n, gh As Integer, ah, d As Double

        ah = InputBox("digite el valor del ahorro")

        gh = InputBox("digite el ineteres")

        n = 0

        d = ah * 2

        lista.Items.Clear()

        While ah < d

            ah = ah + ah * (gh / 100)

            n = n + 1

            'sirve para para agregar los resultados en la lista

            lista.Items.Add(" en el año " & n & " tengo ahorrado " & Format(ah, "#,##0.00"))

        End While

        MsgBox(" el dinero se doblo en " & n & " años ")

    End Sub

End Class