Abnormal Combo Box Looping

[cheer]

I have the below coding to loop and to read all the value inside a combo box. However, from the immediate windows, i have detected some abnormal looping from the coding. Can anyone suggest and correct the below coding ?

Dim intLoop As Integer
Dim cboCode As ComboBox
Set cboCode = Me![cboMachineID]
For intLoop = 0 To cboCode.ListCount - 1
Debug.Print cboCode.ItemData(intLoop)
Next intLoop

 

[jdraw]

What's the row source of the combo?

 

[cheer]

What's the row source of the combo?

You may refer to the above attached file for more info.