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