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.