contar digitos de un textbox

[yohannita]

kiero poner 2 condicion para imprimir....... debe de estar habilitado un checkbox y tiene que tener un textbox solo numeros de 10 a 13 caracteres.....

tengo el siguiente codigo....

Private Sub btn_impresion_Click()


Dim monto_check As Double

****hace perfecta esta condicion, pero mi textbox no debe tener valor 0 para poder imprimir. quiero contar los digitos y validar si esta entre 10 y 13 que imprima, pero no se como contar los digitos en 1 textbox???me pueden ayudar??

If ck_grnumber.Value = 1 And gr_number.text = "0" Then


monto_check = Val(FactCtrl.txt_desserv) + Val(FactCtrl.txt_viaticos) + Val(FactCtrl.txt_otros)
'
If Val(FactCtrl.txt_montofact.Text) <> monto_check Then
MsgBox "Los montos no concuerdan. Verifique los datos proporcionados.", vbCritical, "Control Facturas"

Exit Sub
End If
Load impresion
impresion.Show


Else
MsgBox "Son necesarios los dos campos para imprimir factura", vbCritical, "Control Facturas"

End If
End Sub