[Bug 10765] The Format function of Visual Basic 6 does not work properly

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

--- Comment #2 from pablo   2007-12-13 09:23:18 ---
Created an attachment (id=9614)
 --> (http://bugs.winehq.org/attachment.cgi?id=9614)
This executable demostrates the error with the Format function of Visual Basic

Sub Main()

Dim Numero As Double
    Dim Formated_numero As Double

Numero = -1.57

Open "File1.txt" For Output As #1

Print #1, "Number without format: " & Numero
        Formated_numero = Format(Numero, "0.00")
        Print #1, "Formated number: " & Formated_numero

Close #1
End Sub