Try this:
For i = 0 to 48
For k = 1 to 4
proparray(i, k) = left(proparray(i, k), len(proparray(i, k)) - 1)
proparray(i, k) += " "
Next k
Next i
(explaination: It stores the every character but the last one in proparray(i, k), and then adds a...