主题：关于遍历集合内容并删除的问题

 各位大师，以下代码提示集合已修改，无法枚举。
Dim 数组() As String = {"0","1","2","3","4","5","6","7","8","9"}
Dim 集合 As new List(Of String)
集合.AddRange(数组)
For Each 字符 As String In 集合
    If CInt(字符) / 2 > 0 Then
        集合.Remove(字符)
    End If
Next
For Each 字符 As String In 集合
    Output.Show(字符)
Next

请问如何通过遍历的方法来删除集合总奇数值。

谢谢！

For i as integer = 集合.count - 1 to 0 step -1
    If CInt(集合(i)) / 2 > 0 Then
        集合.Remove(i)
    End If
Next