Function Area(Length, Width) Area = Length * Width End FunctionSub aSub() MsgBox Area(100, 50)End Sub