Problema al llamar un dato de un ComboBox

[Sumerio]

Hola a todos es que me dejaron pequeño problema para resolver, pero me funciona y todo, todo lo hago en funciones y procedimientos, hago los llamamientos.
Desde el formulario este llamamiento para este ComboBox, y le pongo sus datos asì:
Sub llenaproductos()
With cboPieza.Items
.Add("JUN Lightweight Flywheel Toyota MR2 3SG SW20")
.Add("Clutch Masters Flywheel Honda Civic 2.0L 4cyl")
.Add("Aasco Billet Aluminum Flywheel Mitsubishi Eclipse 2.4L")
.Add("Thule Helium")
End With
End Sub

Pero despues de hacer el calculo correspondiente, para imprimir el resultado tambien un llamado a un procedimiento:
con los siguientes parametros:
Call ProcesaDatos(vendedor, cantidad, pieza)

*** EL PROBLEMA QUE TENGO ES EN LLAMAR EL DATO DEL COMBO BOX PARA EL REPORTE:

YO PENSABA QUE LLAMANDO A UNA FUNCION:
Function capturaPieza()
Return cboPieza.Items
End Function
Y ASIGNANDOLE EN EL BOTON PROCESAR:
Dim pieza$ = capturaPieza()
Y DESPUES ENVIANDOLO AL PROCEDIMIENTO:
Call ProcesaDatos(vendedor, cantidad, pieza)

PERO ME APARECE ERROR AL MANDARLE QUE IMPRIMA EL VALOR DEL COMBOBOX.

[alan_69niupi]

tienes un pequeño proble ahi, al llamar la funcion capturaPieza en teoria te devuelve un valor, un valor que nunca optine valga la redundancia un valor. Por la poca sintaxis que pusiste veo que es visual basic. entonces hay varias formas para obtener el valor de un combobox
esta es una forma, con esta obtienes el nombre o lo que contenga ese combobox
UsuarioActual = cbxUsuario.Text
Numero=cbxUsuario.Text
ambos te devuelven un valor
y si lo que buscas que dependiendo del valor que tengas hacer algo
puedes poner ese valor en un case
espero te ayude