Makro-Inputbox und Zahlenformat

in einer Schleifenfunktion mit Abfrage von verschiedenen Zahlen bekomme ich Probleme bei der Formatierung von negativen Zahlen...

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

Woran kann das liegen?? Bei Eingabe zB der Zahl 1000 wird diese korrekt dargestellt - also rechtsbündig und mit 1000er-Punkt.
Wenn ich aber -1000 eingebe, wird diese linksbündig und nicht rot dargestellt ...der Punkt fehlt auch.

Hilfe
Selter