WITH THisform
IF cbobox1.VALUE=SPACE(4) .AND. THIS.VALUE<>SPACE(4)
=MESSAGEBOX("No puede dejar en blanco la sub sub cuenta",48,"Corrija y reintente")
.cbobox1.SETFOCUS
RETURN
ENDWITH && perdon falta esto
pero recuerda que tienes que cambiar los nombre de las variables de acuerdo a las tuyas
Suerte