Lo podrías hacer directo.. ya que en este caso el sender es el checkbox (activarchec) y no necesitas hacer un findcontrol..
Sería así:
Cita: Dim chk As CheckBox = CType(sender, CheckBox)
If chk.Checked Then
Response.Write("checked")
Else
Response.Write("NoChecked")
End If