Dovrebbe essere corretto. Questo è il risultato del convertitore:
Protected Sub PopolamentoListeUtenti()
ListBoxUtenti.Items.Clear()
If ListBoxRuoli.SelectedItem IsNot Nothing Then
Dim utentiInRuolo As String() = Roles.GetUsersInRole(ListBoxRuoli.SelectedItem.ToString())
For i As Integer = 0 To utentiInRuolo.Length - 1
ListBoxUtenti.Items.Add(utentiInRuolo(i).ToString())
Next
' popolamento lista ListBoxUtentiNon
ListBoxUtentiNon.Items.Clear()
Dim utenti As MembershipUserCollection = Membership.GetAllUsers()
For Each UserName As MembershipUser In utenti
If Not Roles.IsUserInRole(UserName.ToString(), ListBoxRuoli.SelectedItem.ToString()) Then
ListBoxUtentiNon.Items.Add(UserName.ToString())
End If
Next
End If
End Sub