I am working on an assignment due this Friday ( my teacher has told that he can not help me ) and have some sort of logic error. I am trying to create a very basic program that ask the user to enter a positive integer value and give back the sum of 1 to the defined value. example --> user enters 10 & the program gives the answer of 55 ( the sum of all integer between 1 & 10)

Code:

        Dim intCounter As Integer
        Dim intNumber As Integer
        Dim intNumberSum As Integer
        Dim Numeric As Integer = 1
        Dim strInputBox As String

        strInputBox = InputBox("Please enter a positive integer value", "Input needed")

        intNumber = CInt(strInputBox)

        If strInputBox < 1 Then
            MessageBox.Show("Value can not be less then 1")



        End If

        Do While intCounter < intNumber
            intNumberSum = intCounter + 1
            intCounter += 1
            Numeric = +1
 ' last idea tried to get the logic work.  I don't think this line is really needed. My line of thinking is the counter should be used to get the new value and add one to it

           Loop

        MessageBox.Show("The sum of the numbers 1 through " & strInputBox & " is " & intNumberSum & ".")

    End Sub