Problem with code

Hi I seem to keep getting and error with the code. It works fine if I copy and paste the code but when I type it in it stops at Me.lstNumbers.AddItem intCount. Can you see where I am going wrong please.

Option Explicit

Private Sub cmdNumbers_Click()
Dim intStart As Integer
Dim intFinish As Integer
Dim intCount As Integer

intStart = InputBox("Enter a number")
intFinish = InputBox("Enter a higher number")
intStart = intCount

Me.lstNumbers.RowSourceType = "Value"

Do While intCount <= intFinish

Me.lstNumbers.AddItem intCount
intCount = intCount + 1

Loop

Do Until intCount > intFinish

Me.lstNumbers.AddItem intCount
intCount = intCount + 1

Loop


End Sub

RE: Problem with code

Hi Simon I put the "Value List" in and the code now runs but it does not start with the first number that I enter. If I type in 5 and the finish 8, it starts at 0? 012345678. Can you see where the code is wrong?
Thanks Jo

RE: Problem with code

Thanks Simon, I couldn't see for looking!! Makes sense now, once again thanks for your help
Jo