Thalamus cambio de tipode dato de celda a fecha

Ventas/Ventas.aspx.vb

@@ -21907,7 +21907,14 @@ Partial Class Ventas
         Dim Mensaje = UsuarioActual.Empresa.Funcionalidad(152)
         If Mensaje = "" Then Return 0
 
-        Dim Celular = ObjFactura.Cliente.CobranzaTelefono
+        Dim Celular As String = ""
+
+        Try
+            Celular = ObjFactura.Cliente.CobranzaTelefono
+        Catch ex As Exception
+
+        End Try
+
         If Celular.Length <> 10 Then Return 3
 
         'ARMA MENSAJE