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