¿Cómo cargar correctamente el formato de moneda en un listbox?

Cómo están:

Los saludo con gusto y solicito su ayuda en el siguiente caso, estoy llenando un listbox con los datos de una hoja la cual contienes columnas con valores de moneda, mi intención es mostrar en el listbox los valores con el mismo formato de origen, en el siguiente ejemplo muestro la línea con el formato que estoy aplicando para la conversión, sin embargo, cuando ejecuto la macro me arroja el error "no coinciden los tipos", ya revise la columna que contiene los valores en la hoja y todas las celdas tienen el mismo formato, ¿Cómo puedo solucionar este problema?, gracias por la ayuda.

. List(.ListCount - 1, 4) = FormatNumber(Hoja2. Cells(I, 10), 2) 'Importe