advice on coding

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
   		Dim iPositiveIntegerN As Integer
   		Dim iEven As Integer
   		Dim iOdd As Integer
   		Dim iKount As Integer
   
   		iPositiveIntegerN = txtPositiveIntegerN.Text
   
   		iKount = 0
   		
   		Do Until iKount > 0
   			iEven = iPositiveIntegerN / 2
   			iKount = iKount + 1
   		Loop
   
   		lblEven.Text = iEven
   
   		iOdd = 3
   		iKount = 1
   
   		Do Until iKount > iPositiveIntegerN
   			iOdd = iOdd + iKount
   			iKount = iKount + 1
   		Loop
   
   		lblOdd.Text = iOdd
   
   		txtPositiveIntegerN.Focus()
   
   	End Sub