You just need to iterate through the items like this when you get a Value
:
'Reset to no item.
Cboneighborhood.ListIndex = -1
Dim X As Integer
'Iterate through items.
For X = 0 To Cboneighborhood.ListCount - 1
'Compare value.
If Cboneighborhood.ItemData(X) = Value Then
'Select it and leave loop.
Cboneighborhood.ListIndex = X
Exit For
End If
Next X