InputBox Code

Sub findarea()
   Dim Length As Double
   Dim Width As Double
   Dim findarea As Double
   
   Length = InputBox("Enter Length ", "Enter a Number")
   Width = InputBox("Enter Width", "Enter a Number")
   findarea = Length * Width
   MsgBox findarea
End Sub