Сумма ЧИСЕЛ в строке

Доброго времени суток!
Есть задача:
Выделен кусочек текста. В выделение имеет следующий вид:
<слово> <число>, <слово> <число>. Пример: книга 100, ручка 20, ...
Хотелось бы найти сумму чисел в строке и написать её в конце, т.е.
книга 100, ручка 20
всего 120
Пытаюсь решить эту задачу, но не выходит...
Непонятно, например, как получить доступ к символу в строуке.
Сделал так:

While i <> EndOfText
  Char = Mid(AllSelectionText, i, 1)
  If Char >= "0" And Char <= "9" Then
    ...
  End If
  i = i + 1
Wend

Но это не комильфо... наверно есть функция вроде string(i), но найти её не получилось.
Прошу вашей помощи.
Заранее спасибо!