Issue with InputBox function

[kelly mort]

Option Explicit 
Sub AreaOfTriangle ()
Dim a As Long,  b As Long , Aunit As Variant 
On Error resume Next

a = Application.InputBox  ("Enter base of triangle" , Type:=1)
b = Application.InputBox  ("Enter height of triangle" , Type:=1)

Aunit = Application.InputBox  ("Enter unit of measurement " , Type:=1)


MsgBox  "The area of the triangle is: " & 0.5*a*b & Aunit,  vbInformation, "Area of a triangle "

On Error GoTo 0
End Sub

I get number is not valid for the last input. Which is the unit.


What am I doing wrongly?

 

[FormR]

Hi, you could try:

Aunit = Application.InputBox("Enter unit of measurement ", Type:=2)

 

[kelly mort]

Hi, you could try:

Aunit = Application.InputBox("Enter unit of measurement ", Type:=2)

Oh okay thanks