Parse Text String

I need to parse text strings and format them.

The string looks like this and runs down an unknown number of rows in one column, Col A.

+000800-000900+00123456-000800+0012345650+000700

I want to parse this so that the results will be text to columns

80.0 90.0 1234.56 80.0 1234.56 50 70.0

I want to thank BrettH for creating this VB. I want to manipulate it to read every row in Col A that has data, and then I want to parse the data as shown above. BrettH's VB works but I couldn't modify it to read all the rows that had data. I tried looping the rows using a counter loop and also a For Each loop, but could'nt get it to work.

Sub ParseInCellMath()
Dim DefaultRange As String, UserRange As Range, OrigForm As String
Dim TempForm As String, NegString As String, NegStart As Integer