Fixed it myself, this one works for some reason it wasn't working earlier. I might have had a repeat line I cleaned up the code when I got home from school. Thank you Google.
Module Module1
Sub Main()
Dim Pennies As Double = 0.01
Dim NumberOfDays As Integer = 0
Dim InvalidInput As Integer = 0
Dim Accumulator As Decimal = 0
Dim Counter As Integer
While InvalidInput <= 0
Console.WriteLine("Enter number of days worked")
NumberOfDays = Console.ReadLine
Console.Write("Day ")
Console.Write(vbTab & "Amount")
Console.Write(vbTab & "Total")
Console.WriteLine()
If NumberOfDays >= 1 Then
For Counter = 1 To NumberOfDays
Accumulator = Accumulator + Pennies
Console.Write(Counter)
Console.Write(vbTab & "$" & Pennies)
Console.Write(vbTab & "$" & Accumulator)
Console.WriteLine()
Pennies = Pennies * 2
Next
Console.WriteLine("Press any key to exit...")
Console.ReadKey()
End
ElseIf NumberOfDays = InvalidInput Then
Console.WriteLine("Invalid input")
End If
End While
End Sub
End Module