'Listing 25.5 -- 25LIST05.TXT --- Przekazanie napisw jako parametrw procedury

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)
  MsgBox "Wprowadzono dan " & Data
End Sub
