Imports System

Public Module Module1

    Public Sub Main()

        Dim out As Double = 0.26

        Dim balance As Double

        Dim increase As Double = 0.03

        Dim Deposit As Double = 20.00

        Dim days As Integer

​

        Do Until balance >= 10000

            days += 1

            balance = balance + Deposit

            If days Mod 30 = 0 Then

                balance =  (balance * increase) + balance 

            End If

            Console.WriteLine("It will take " & days & " days to reach $" & balance)   

        Loop

    End Sub

End Module