using the "Application.InputBox" script problem

[mso365acc]

 I have been using a script that lets me enter by prompt data then It puts it into the cell I assigned.

When the number entered has a "." decimal point, such as 1234.3467, the number inserted in the cell is 1234.0000 without the .3467.  This script did work before, but now it's not working.

I use

"DP19 = Application.InputBox(Prompt:="Enter ID,",-

               Title:="Display ID 19",-

              Default:=("0.0000"),-      (note: I have also tried ("0") same results

             Type:=1)

All numbers have a 4 digit decimal code.

Anybody have any ideals?

[#2]

@mso365acc 

!t works for me using 365 home on win 10. I had to format the target cell as numeric with the appropriate decimal places. Apologies if this is too obvious and your platform has another issue.