'Listing 23.3  23LIST03.TXT --- Sprawdzanie wartoci wejciowej

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

If Number = "" Then
  MsgBox "Zrezygnowano z wprowadzenia"
Else
  MsgBox "Wprowadzono liczb " & Number
End If
End Sub
