ya he encontrado al forma te publico el codigo de manera correcta espero tu ayuda plis
Código vb:
Ver originalPrivate Function ComboPropietario() As ComboBox
Dim cbx1 As ComboBox
If cbxUNP.Visible Then
Set cbx1 = cbxUNP
ComboPropietario = cbxUNP
ElseIf cbxPromotorP.Visible Then
Set ComboPropietario = cbxPromotorP
ComboPropietario = cbxPromotorP.Text
Else
Set ComboPropietario = cbxGerenciaP
ComboPropietario = cbxGerenciaP.Text
End If
End Function