Module Module1

    Sub Main()
        Dim balance As Double
        Dim interest As Double
        Dim endBalance As Double
        Dim months As Integer

        Console.Write("Enter starting balance: ")
        balance = Console.ReadLine()
        Console.Write("Enter interest rate: ")
        interest = Console.ReadLine()
        Console.Write("Enter ending balance: ")
        endBalance = Console.ReadLine()

        While (balance <= endBalance)
            balance = balance + interest * balance
            months = months + 1

            Console.WriteLine("Balance: " & balance.ToString("C"), _
                              "Month " & months)
        End While

        Console.WriteLine("Number months: " & months & _
                          " Balance: " & balance.ToString("C"))
    End Sub

End Module