Something

Option Explicit
 Dim accepted As Boolean
 Dim startpoint As Integer
 Dim total As Integer
 Dim counter1 As Integer, counter2 As Integer, counter3 As Integer
 Dim x As Integer
 Private Sub cmdSummation_Click()
 startpoint = Val(txtNumber)
     For x = 1 To startpoint
         counter1 = counter3 + 1
         counter3 = counter3 + 1
         counter2 = counter1 + counter3
         
     Next x
 lblSum.Caption = counter2
 End Sub
 Private Sub Form_Load()
 accepted = False
 counter3 = 2
 End Sub