Formatierung negativer Zahlen

habe ein Problem bei der Formatierung von negativen Zahlen, die mittels Inputbox abgefragt werden. Mit diesem Code klappt die gewünschte Formatierung nicht - außerdem werden die Zahlen als positiv (oder absolut??) von Excel erkannt, aber mit einem - dargestellt.
Wo liegt mein Fehler????

' Q Buchgewinn query
'Sheets("Tabelle2").Select
Cells(i, 17).NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
buchgew = InputBox("Netto-Buchgewinn: ", "Bitte eingeben / [Euro]")
buchgew1 = buchgew
Cells(i, 17) = buchgew1

Vielen Dank
Selter