Iblmessage

[Sayra]

Hola estoy usando un Iblmessage en una aplicacion para que le avise al usuario que debe seleccionar al menos un item de un checkboxlist, la cosa es que me muestra el mensaje aun cuando se leccion uno yo intente resetearlo asi

Iblmessage.Text= "" pero no funciona

este el codigo en custion

Sub Button1_Click(sender As Object, e As EventArgs)
Dim s As String = "Elementos seleccionados:<br>"
Dim i As Int32

For i = 0 to Check1.Items.Count-1

If not Check1.Items(i).Selected Then
Iblmessage.Text = "Es necesario que seleccione un servicio"

Else If Check1.Items(i).Selected Then
Iblmessage.Text= ""
Dim ds As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter

MyConnection = New SqlConnection("SERVER=MDS01; DATABASE=be; INTEGRATED SECURITY=false;PASSWORD=sa;USER=sa")
MyCommand = New SqlDataAdapter("select Identificador, Direccion, Telefono, EstadoID, CiudadID, UbicacionID from Agencia where EstadoID=" &DropDownList1.SelectedItem.Value, MyConnection)

ds = new DataSet()
MyCommand.Fill(ds, "Agencia")

MyDataGrid.DataSource=ds.Tables("Agencia").Default View
MyDataGrid.DataBind()

End If
Next
End Sub

gracias por todo