Replacing the For Each loop with a For Next loop should work.

Dim usr as User

For x As Integer = db.Users.Count - 1 to 0 Step -1

usr = db.Users(x)

If Not usr.IsSystemObject Then

usr.Drop()

End If

Next x