Penny for Pay question

See more:

VB

I have a problem in my programming class. A person gets paid daily, day one is 1 penny, day two is 2 pennies, day three is 4 pennies, day five is 8 pennies and so on doubling each day. I wrote the following code but am having an issue with out put. When I put in 1 day it tells me 2 pennies instead of 1. I am sure this is an easy fix but my brain is fried and I am overlooking it.

Here is my code:

Public Class Form1

Private Sub calculateButton_Click(sender As Object, e As EventArgs) Handles calculateButton.Click
Dim intDays As Integer
intDays = 1

Dim decPennies As Decimal
decPennies = 0.01

For intDays = 1 To cboDays.Text
decPennies = decPennies * 2

Next intDays
ansLabel.Text = decPennies.ToString("C")

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For intDays = 1 To 20
cboDays.Items.Add(intDays)

Next
End Sub
End Class

Any help would be greatly appreciated.