Problema en Gestor de Pedidos (macros en excel)

Tengo un problema con el codigo de una macro para que me ingrese el pedido en el formulario de userform, la macro es la siguiente : ha ocurrido un error : no coinciden los tipos! Me sale

Por favor alguien que me ayude !

'Registrar producto y capturar cantidad

'Declaramos variables

DimstrDescripcion As String

DimintCantidad As Double

DimdoublePUnitario As Double

DimintTotal As Double

'

'En caso de error

On Error GoToErrorHandler

'

WithApplication. WorksheetFunction

'

'Usamos BUSCARV para encontrar el detalle del producto

'

strDescripcion = .VLookup(CDbl(Me.Textprint.Value), Hoja8.Range("A:C"), 2, 0)

'

intCantidad = InputBox(strDescripcion&vbNewLine&vbNewLine& "Ingresa la cantidad.", "informacion", 1)

    '

IfintCantidad = 0 ThenGoToErrorHandler

'

'Llenamos el ListBox

'... CÓDIGO

Me.ListBoxx.AddItemMe.Textprint.Value

'

'... DESCRIPCIÓN

Me.ListBoxx.List(ListBoxx.ListCount - 1, 1) = strDescripcion

'

'... CANTIDAD

Me.ListBoxx.List(ListBoxx.ListCount - 1, 2) = .Text(intCantidad, "#,##0")

'

'... P.UNITARIO

doublePUnitario = .VLookup(CDbl(Me.Textprint.Value), Hoja8.Range("A:C"), 3, 0)

ListBoxx.List(ListBoxx.ListCount - 1, 3) = .Text(doublePUnitario, "$#,##0.00;-$#,##0.00")

'

'... TOTAL

intTotal = doublePUnitario * intCantidad

ListBoxx.List(ListBoxx.ListCount - 1, 4) = .Text(intTotal, "$#,##0.00;-$#,##0.00")

    '

    '...ETIQUETAS

Me.lblproductos = .Text(CInt(Me.lblproductos) + CInt(intCantidad), "#,##0")

Me.lbltotal = .Text(CDbl(Me.lbltotal) + CDbl(intTotal), "$#,##0.00;-$#,##0.00")

Me.Textprint.Value = ""

Me.Textprint.SetFocus

EndWith

Exit Sub

ErrorHandler:

MsgBox "Ha ocurrido un error: " &Err.Description, vbExclamation, "info"

Me.Textprint.Value = ""

Me.Textprint.SetFocus

End Sub

Private Sub gestorventas_Initialize()

Dim intConsecutivo As String

Me.ListBoxx.ColumnCount = 5

Me.ListBoxx.ColumnWidths = "80 pt; 150 pt; 55 pt; 60 pt; 60 pt"

Me.txtfecha.Value = Date

intConsecutivo = PROODUCTOSV.Range("g4").Value

IfintConsecutivo = "CONSECUTIVO" Then

Me.txtcon = 1

Else

Me.txtcon = intConsecutivo + 1

EndIf

End Sub