'Listing 25.6 -- 25LIST06.TXT --- Wykorzystanie instrukcji Exit Sub.

Private Sub Command1_Click()
  Prompt_For_Input "Twoje imi", "Imi"
  Call Prompt_For_Input ("Twj wiek", "Wiek")
End Sub

Sub Prompt_For_Input (Prompt, Title)
  Data = InputBox(Prompt, Title)
  If Data = "" Then
    MsgBox "Rezygnacja"
    Exit Sub
  End If 

  MsgBox "Wprowadzono dan " & Data
End Sub
