these person is hired by her employee which it agree that the salary would be one penny the first day, two pennies the second day and four pennies the third day and continuing to double each day. i have to use a combo box to select the days that the empoyee will be working and calculate the total amount of pay that will received.

its not calculating right?

Dim intDay As Integer = 0

Dim intCount As Integer = 1

Dim decPay As Decimal = 0

Dim intNumDays As Integer

Dim dblTotal As Double = 0

Dim dblTotalPay As Double

Dim dblPay As Double

Dim decTotal As Decimal

Dim intCurrent As Integer

If Integer.TryParse(cboDay.Text, intNumDays) Then

For intCount = 1 To intNumDays

intDay += 1

Next

If intNumDays > 0 Then

intCurrent = CInt((intDay ^ 2.0))

decTotal = decTotal + intCurrent

lblPay.Text = decTotal.ToString ("C")

End If

End If