diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 3743692cd..f0d380118 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -925,7 +925,7 @@ Namespace Extensiones
                     If y = 4 Then
 
                         If (Mid(entero, 4, 1) <> "0") Or
-                        (Mid(entero, 4, 1) = "0" And Len(entero) = 4) Or
+                        (Mid(entero, 4, 1) = "0" And (Len(entero) >= 4 And Len(entero) <= 6)) Or
                         (Mid(entero, 5, 1) <> "0" And Len(entero) = 5) Or
                         (Mid(entero, 6, 1) <> "0" And Len(entero) = 6) Or
                         (Mid(entero, 5, 1) = "0" And Len(entero) = 7) Or