Function Sr(x As Integer, y As Integer, z As Integer) As Integer
    Sr = (x + y + z) / 3
End Function

Sub ObliczanieSrTrzechLiczb(aa)
    x = InputBox("Podaj pierwszą liczbę:")
    y = InputBox("Podaj drugą liczbę:")
    z = InputBox("Podaj trzecią liczbę:")
    okno = MsgBox("Srednia dla liczb: " + x + "," + y + "," + z + " wynosi: " + Sr(x, y, z))
End Sub