Visualizar el dato que yo quiera combobox

[Mmc]

SetPosComboDos cboCategoria, (defecto)


Sub SetPosComboDos (Combo As ComboBox, ByVal sTmp1 As String)

Dim iTmp1 As Integer
Dim iTmp2 As Integer

iTmp2 = -1
If Not IsEmpty(sTmp1) Then
For iTmp1 = 0 To Combo.ListCount - 1
If Trim$(Mid$(Combo.List(iTmp1), InStr(Combo.List(iTmp1), Chr$(9) + Chr$(9)) + 2)) = Trim$(sTmp1) Then
iTmp2 = iTmp1
Exit For
End If
Next
End If
Combo.ListIndex = iTmp2
End Sub



Chr$(9) = tab estos dependen de lo que quieres