No entiendo muy bien, me parece que quieres decir cómo mostrar el Item del Combobox que contiene el dato determinado ¿no?
Si es así, hay varias maneras, o con API (sendmessage()) o con un bucle.
Hay muchos ejemplos por la Red de ambos, pero por sie acerté con lo buscado te pongo uno que suelo usar:
Código:
'La llamada sería:
CbVendedor = BuscaTextoEnCombo(CbVendedor, STA.Parameters(4).Value)
'Como devuelve -1 si no lo halla, el combo no muestra nada. Caso de encontrarlo se posiciona en él
'Función:
Function BuscaTextoEnCombo(Combo As ComboBox, TEXTO As String, Optional CaseSensitive As Boolean = True) As Integer
Dim nFor As Integer
BuscaTextoEnCombo = -1
If TEXTO = vbNullString Then
Exit Function
End If
For nFor = 0 To Combo.ListCount - 1
If CaseSensitive Then
If Trim(TEXTO) = Trim(Combo.List(nFor)) Then
BuscaTextoEnCombo = nFor
Exit For
End If
Else
If UCase(Trim(TEXTO)) = UCase(Trim(Combo.List(nFor))) Then
BuscaTextoEnCombo = nFor
Exit For
End If
End If
Next nFor
End Function
Un saludo.