Exit Sub digunakan untuk menghentikan alur kode yang terdapat pada sebuah prosedure pada kondisi tertentu sebelum alur kode itu sungguh-sungguh selesai. Exit sub bisa digunakan pada Event dan Sub Procedure, sementara pada function biasanya proses rampung sesudah terdapat Return. 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 = "Tambah..." End Sub Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() Tambah( CInt (TextBox1.Text)) End Sub Private Sub Tambah( ByVal nilai As Integer ) For i As Integer = 0 To nilai If i = 5 Then ListBox1.Items.Add( "Sampai Batas" ) Exit Sub Else ListBox1.Items.Add( "Nilai: " & i.ToString) End If Next End Sub End Class Runtime: Click here if you like this article. Sumber http://rani-irsan.blogspot.com