For Each loopilla voidaan käydä kokoelmassa olevat jäsenet läpi yksitellen. Esimerkki formilla olevien kontrollien läpikäyminen  ja  tekstin muuttaminen.

        '
        'kokoelma = formin controls kokoelma
        'jäsenet = kontrollit
        For Each kontrolli As Control In Me.Controls
            Dim str1 As String = kontrolli.Name
            If str1.IndexOf("TextBox") >= 0 Then
                kontrolli.Text = "Pyyhitty"
            End If
        Next

Jos on epäselvää, mitä tyyppiä ovat kokoelman jäsenet, niin sen saa ratkaistua GetEnumerator funktiolla, joka palautta jäseniä vastaavan objektin.
       '
        'kokoelma = merkkijono
        'jäsenet = kirjaimet
        Dim kokoelma As String = " kokeilumielessä"
        Dim jäsen As Object = kokoelma.GetEnumerator()
        For Each jäsen In kokoelma
            TextBox1.Text = TextBox1.Text & CType(jäsen, String)
        Next