'Listing 25.2 25LIST02.TXT -- Wywoanie procedury wczytujcej liczb.


Private Sub Command1_Click()
  Get_Number
  Form1.Print "Trwa przetwarzanie ... "
  Get_Number
End Sub

Sub Get_Number()
  Do
    Number = InputBox ("Wprowad liczb o wartoci pomidzy 1 a 10", _
                       "Odrbna procedura wprowadzania")

    If Number = "" Then
      Exit Do
    End If
   Loop Until Number >=1 And number <= 10
   
    If Number = "" Then
    MsgBox "Nie wprowadzono liczby"
  Else
    MsgBox "Wprowadzono liczb " & Number
End Sub

