Excel 2003 "Databar" help

[wongs18]

Hi Guys!

I found this amazing vba code online:
Function DataBar(lngValue As Long)
DataBar = String(lngValue, ChrW(9608))
End Function

Basically allows me to generate these "bars" to represent my data.
However; it doesn't generate bars for negative data...
I was wondering if it is possible to modify this code so if the data is positive the bar grows to the right as green and if it is negative the bar grows to the left red?

Thanks gusy!

 

[DiGiMac]

Perhaps my addin here could help
https://digimac.wordpress.com
multicoloure databars with a load of options