Need to eliminate scientific display of decimal point

[Bill_Biggs]

I have written a simple macro for a carpenter that converts fractions of a foot (1 ich, 3 inches and so on) to decimal points. Here it is:

Sub Macro1()
Dim A As String
A = InputBox("Enter length you need converted.")
A = A * (1 / 12)
MsgBox A
End Sub

But if I enter 1, the Msgbox displays 8.3333 -2. I would like it to display .083. Can anyone tell me how that is done?

Thanks, as always.

Bill Biggs

 

[Richard Schollar]

Bill

Just format the result:

Msgbox Format(A,"0.0000")

Oh, and Dim A as Double too.

Sub Macro1()
Dim A As Double
A = Application.InputBox("Enter length you need converted.",Type:=1)
A = A * (1 / 12)
MsgBox Format(A,"0.0000")
End Sub

 

[Bill_Biggs]

Thank you, sir!