Write a VBA function to calculate the area of a rectangle.

Function Area(Length As Double, Optional Width As Variant)

    If IsMissing(Width) Then

        Area = Length * Length

    Else

        Area = Length * Width

    End If

End Function