'Listing 23.2 -- 23LIST02.TXT -- Uycie instrukcji Exit Do w celu awaryjnego przerwania ptli.

Private Sub Command1_Click()
Do
  Number = InputBox("Wprowad liczb z zakresu 1..10", _
                    "Instrukcja Do..Loop")
  If Number = "" Then
    Exit Do
  End If
Loop Until Val(Number) >= 1 And Val(Number) <= 10
Form1.Print "Wprowadzono liczb " & Number
End Sub
