Like most of the programs we will be doing this term, create a form with a single button. Enter the code below into the button.

Dim Length As Integer

Dim Area As Integer

Dim Volume As Integer

Dim SurfaceArea As Integer

Length = InputBox(“What is the length of the edge?”, “Cube Volume”)

Area = Length ^ 2

SurfaceArea = Area * 6

Volume = Length ^ 3

MsgBox(“The surface area is ” & SurfaceArea)

MsgBox(“The Volume is ” & Volume)