Jose BN

Muchas gracias! Ya hice un pequeño ajuste y ha quedado resuelto. Saludos

@JasallBcn primeramente agradecerte el tiempo brindado para aportar la solución. Revisando me parece se presenta problemas al momento de intentar validar una fecha correcta y presionar el botón para realizar el registro del textbox en la celda, podrías por favor revisar si te sucede lo mismo. Quedo atento a los comentarios.

Buenos días, Amigos del foro quisiera solicitarles una pequeña ayuda, estoy intentado crear 3 condiciones en un botón de un formulario con el cual pretendo ó busco: 1. No se permita registrar en vacío un textbox. 2. Se evalue el formato si el valor ingresado en el textbox1 se encuentra en formato fecha. 3. Si el valor ingresado en textbox1 es mayor a la fecha determinada no permita el registro. 4. Se¿i el valor del texbox1 es menor a la fecha determinada cargar el valor en la celda indicada. El formulario cuenta con 3 textboxs y 3 botones para ejecutar las 4 acciones (mencionadas arriba), agradezco la ayuda y/o correcciones que me puedan brindar. Dim Conttrol As Control For Each Conttrol In Controls If TypeOf Conttrol Is TextBox Then If Conttrol.Text = "" Then MsgBox "El valor no puede estar vacio", vbCritical, "Smart Intelligence Tools" Exit Sub End If End If TextBox2.SetFocus Next If TextBox2.Value <> "20221108-99-LA-JB-30401" Then MsgBox "El valor de la llave Keyserial no es válido ", vbCritical, "Smart Intelligence Tools" End If Exit Sub If TextBox2.Value = "20221108-99-LA-JB-30401" Then End If Range("B1").Value = TextBox2.Text Saludos JB userform show según valor de una celda4.xlsm

@PTO SALAVERRYes bueno saber que haz encontrado la solución. Saludos

Es correcto lo afirmado por @Antoni, debes revisar tu separador de decimales.

Efectivamente con este cambio no da problema, probado.