Problem Updating Roles

Hi I am having problems getting my roles to update can you please look over this code to see if I may have missed soemthing?

 

 For Each rolebox As ListItem In UserRoles.Items
If rolebox.Selected = True Then
If Not Roles.IsUserInRole(username, rolebox.Text) Then
Roles.AddUserToRole(username, rolebox.Text)
End If
Else
If Roles.IsUserInRole(username, rolebox.Text) Then
Roles.RemoveUserFromRole(username, rolebox.Text)
End If
End If
Next
Thank You
...