VBA: обработка строки ?

[nerv]

While Not Left(CStr(units(UBound(units))), 1) Like "[0-9]"
'пока последний элемент начииется не с цифры (т. е. пуст либо это пробел)
    newbound = UBound(units) - 1
    ReDim Preserve units(0 To newbound) 'убрали из массива units пустой «хвост»
Wend
'теперь имеем массив units - из элементов вида "X-Y" (где X начинается с цифры)

If txt Like "*#-#*" Then

txt = Left(txt, Len(txt)-1);

Казанский, прикольно, но не наглядно.

Чтобы еще больше порадовать учителя, можно добавить неочевидностей

v1& = Val(Split(txt, "-")(0))
v2& = Val(Split(txt, "-")(1))
ПАРСИНГ = ПАРСИНГ + (v1 - v) ^ 2 * v2


x = Split(txt, "-")
ПАРСИНГ = ПАРСИНГ + (x(0) - v) ^ 2 * x(1)

В целом я за решения Игоря, т.к, оно читается и более-менее понятно, что происходит.