「VB.NET入門」Exit Doを利用するサンプル
サンプルコード
Module ModuleDemo
    Sub Main()
        Dim i As Integer = 0 
        Do While i < 15
            If i = 10 Then
                Exit Do
            End If
            Console.WriteLine(i)
            i = i + 1
        Loop
    End Sub
End Module