diff --git a/Sistemas/CatRoles.aspx.vb b/Sistemas/CatRoles.aspx.vb
index 679ff144d..893e8e3d3 100644
--- a/Sistemas/CatRoles.aspx.vb
+++ b/Sistemas/CatRoles.aspx.vb
@@ -86,7 +86,7 @@ Partial Class CatRoles
 
     Protected Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand
         If e.CommandName = "Permisos" Then
-            Dim Array = e.CommandArgument.ToString.Split("|"c)
+            Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
             If Array.Length = 2 Then
                 Dim ObjPermisos As New ClsSisRoles()
                 ViewState("CveRol") = Array(0).ToEntero
@@ -105,7 +105,7 @@ Partial Class CatRoles
             End If
         End If
         If e.CommandName = "Procesos" Then
-            Dim Array = e.CommandArgument.ToString.Split("|"c)
+            Dim Array As String() = e.CommandArgument.ToString.Split("|"c)
             If Array.Length = 2 Then
                 Dim ObjPermisos As New ClsSisRoles()
                 ViewState("CveProceso") = Array(0).ToEntero
@@ -173,7 +173,7 @@ Partial Class CatRoles
 
     Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
         Dim Rol As New ClsSisRoles
-        Dim Clave = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero
+        Dim Clave As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveRol").ToEntero
         If Rol.RemoveRol(Clave) Then
             Alert("Se ha eliminado correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()