[Bug 18073] New: VB6 Format decimal error

http://bugs.winehq.org/show_bug.cgi?id=18073

Summary: VB6 Format decimal error
           Product: Wine
           Version: 1.1.18
          Platform: PC
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: oleaut32
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]
                CC: [e-mail]

Created an attachment (id=20475)
 --> (http://bugs.winehq.org/attachment.cgi?id=20475)
test program

I had posted bug 15387 (fixed) for a problem in VB6 Format but I find there is
another problem in the Wine VarFormat function.

MASK=#.###
INPUT           RESULTS
           LINUX     WIN
0.099      0.099     0.099      -> ok
0.0999     0.099     0.1        -> wrong
0.09999    1.000     0.1        -> wrong!!
0.099999   1.000     0.1        -> wrong!!

MASK=#.####
INPUT           RESULTS
           LINUX     WIN
0.099      0.099     0.099      -> ok
0.0999     0.0999    0.0999     -> ok
0.09999    0.09999   0.1        -> wrong
0.099999   1.000     0.1        -> wrong!!
0.099999   1.000     0.1        -> wrong!!

In attachment there is a VB6 test program used to get these results.
All the cases must have the same behaviour
Thank you