Dim initialvalue As Integer = Val(txtInitial.Text)
        Dim interestrate As Integer = Val(txtRate.Text)
        Dim endingvalue As Integer = Val(txtEnding.Text)

        Dim CDvalue As Integer
        Dim years As Integer

        CDvalue = initialvalue

        Do Until CDvalue >= endingvalue
            CDvalue = CDvalue + (CDvalue * (interestrate / 100))
            years += 1
        Loop

        lblAns.Text = "The number of years = " & years