Function obwTrojkata(a As Integer, b As Integer, c As Integer) As Integer

    If (a + b > c) And (a + c > b) And (c + b > a) Then
    obwTrojkata = a + b + c
    Else: Call MsgBox("z podanych odcinków nie mozna zbudowac trójkata")
    End If
End Function