07. Area Figures

Sub LiveDemo()
    Dim result As Double
    result = ReturnArea("circle", 6)
    Debug.Print result
End Sub


Function ReturnArea(typeFigure As String, sideA As Double, Optional sideB As Double)
    Select Case typeFigure
        Case "square"
            ReturnArea = sideA * sideA
        Case "rectangle"
            ReturnArea = sideA * sideB
        Case "circle"
            ReturnArea = WorksheetFunction.Pi * sideA * sideA
        Case "triangle"

    End Select
End Function