Tendras que hacer en el evento change del combo un bucle donde compares el código con los itemdata.
Código vb:
Ver originalDim F as Long
For F= 0 to Combo1.Listcount-1
if val(combo1.itemdata)=val(text1.text) then
Combo1.listindex=f
exit for
end if
next f
Saludos