Private Sub ObwdTrojkata_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox("bok a ") b = InputBox("bok b ") c = InputBox("bok c ") Call MsgBox("wynik " & obwTrojkata(a, b, c)) End Sub