Untitled

Module Module1

    Sub Main()
        Console.Title = "Penny-A-Day"
st:
        Console.WriteLine("Penny-A-Day")
        Console.WriteLine("-----------------")
        Console.WriteLine("How many days?")
        Dim days As String = Console.ReadLine()

        If (IsNumeric(days)) Then
            days = Integer.Parse(days)
            Dim penny As Double = 0.01
            Dim days2 As Integer = 1
            Do While days2 <= days

                If days2 = 1 Then
                    penny = 1 * penny
                    days2 += 1
                Else
                    penny = 2 * penny
                    days2 += 1
                End If


            Loop
            Console.Clear()
            Console.WriteLine("After " + days + " days, You would have $" & penny)
            Console.WriteLine("")
            GoTo st

        Else
            Console.Clear()
            Console.WriteLine("Error: Not a number.")
            Console.WriteLine("")
            GoTo st
        End If
    End Sub


End Module