Visual Basic - problema al relacionar combo

hola, tengo un problema a la hora de relacionar el combo con el codigo q yo le paso, a ve me explico, yo guardo el codigo de un color y en el combo esta el color y su codigo guardados, cuando el codigo q le paso yo a la funcion para relacionar el combo no encuentra dicho codigo en el combo, siempre me selecciona el primer registro en vez de no seleccionar ninguno.

la funcion para relacionar el combo es esta

Function relacionar_combo(cb As ComboBox, codigo As Integer) As Integer
Dim I As Integer
If codigo Then
For I = 1 To cb.ListCount
If cb.ItemData(I - 1) = codigo Then
relacionar_combo = I - 1
Exit For
End If
Next I
End If
End Function

y en el eventi click del combo pongo lo siguiente

If CB_COLOR1.ListIndex >= 0 Then
COLOR1 = CB_COLOR1.ItemData(CB_COLOR1.ListIndex)
End If

alguien podria decirme donde esta le error, pq no hay manera de encontrarlo.

muchisimas gracias.