Imports System

Public Module Module1

    Public Sub Main()

        dim amount as integer = 50 

        dim month as integer = 0

        while amount <= 100  

            amount = amount * 1.02

            month = month + 1

        end while

        console.WriteLine("The amount of months taken for the bank to charge you $100 is: " & month & " months")

    End Sub

End Module