Tengo la siguiente rutina para calcular la diferencia entre el total vendido y el efectivo en caja por que no me funciona

Tengo la siguiente rutina para calcular la diferencia entre el total vendido y el efectivo en caja pero, sin importar que declare las variables como integer, double, currency siempre me da error 13 de coincidencia de tipo, ¿Qué estoy haciendo mal?

Private Sub TextEfectCaja_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim DIFERENC, TOTALVDO, EFECTCAJA As Double

' Estas variables son para pasar el valor double a cada una de ellas y hacer las restas segun variables para evita errores

DIFERENC = TextDiferencia.value

TOTALVDO = TexTOtalvdo.value

EFECTCAJA = TextEfectCaja

'DIFERENC = CDbl(TexTOtalvdo.value) - CDbl(TextEfectCaja.value)

'TextDiferencia.value = CDbl(TexTOtalvdo.value) - CDbl(TextEfectCaja.value)

TextDiferencia.value = (TexTOtalvdo.value) - (TextEfectCaja.value)

TextEfectCaja.value = Format(Val(TextEfectCaja), "$ #,##0.00")

TextDiferencia.value = Format(Val(TextDiferencia), "$ #,##0.00")