diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index 00136404a..7477f601e 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -69,7 +69,7 @@ Partial Class Acarreos_CatChoferes
         'Else
 
         Dim ObjAcar As New ClsAcarreos
-        Dim Estatus = 0
+        Dim Estatus As Integer = 0
         If ChkEstatus.Checked Then Estatus = 1
 
         If HdnModalidad.Value = "A" Then