Can't you just custom format after its a number? Something like this:
VB Code:
  1. Dim num As Single = Single.Parse("00000134.40")
  2.         num = num * -1
  3.         MsgBox(num.ToString("000000000.00;-00000000.00"))