جملة التكرار FOR EACH

تستخدم جملة FOR EACH  عادة عندما تكون تريد ان تنفذ كل عنصر مفرد في مجموعة  مثل كل عنصر في مصفوفة أو كل ملف في مجلد او كل حرف في سلسلة حروف

تركيب الجملة :

[For Each [Item] In [Group
   [loopBody]

[Next [Item



مثال :



 Dim siteName As String
        Dim singleChar As Char
        "siteName = "HTTP://NET-INFORMATIONS.COM
        For Each singleChar In siteName
            (MsgBox(singleChar
        Next