For Each melaksanakan perulangan berdasarkan jumlah item yang ada dalam suatu collection. Sintaks: For Each variable [As object_type ] In group statements [Condition][Exit For] statements Next [ variable ] Nilai variable yaitu variabel yang menjadi item dalam suatu collection group yaitu nama collection statements yaitu isyarat yang akan dijalankan dalam iterasi. [Condition][Exit For] adalah sintaks untuk keluar dari loop jika memenuhi keadaan tertentu Contoh penggunaan: UI: Code: Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Button1.Text = "Start Loop!" End Sub Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim kalimat() As String Dim spasi() As Char = " "c Dim kata As String kalimat = TextBox1.Text.Split(spasi) For Each kata In kalimat ListBox1.Items.Add(kata) Next End Sub End Class Runtime: Click here if you like this article. Baca juga artikel perihal Perulangan (Looping) yang lain: Struktur Perulangan Do While Struktur Perulangan Do Until Penggunaan Exit Do Struktur Perulangan For Next Struktur Perulangan For Each Penggunaan Continue For Penggunaan Exit For Perulangan Tak Terhingga (Infinite Loops) Sumber http://rani-irsan.blogspot.com