VBA Access Получение части строкового значения

[Ethex]

Доброго времени суток
У меня имеются текстовые данные из полей. Их структура:
00-00-00-000(ChrW(247))000 - где ChrW(247) - знак калькуляторного деления.
Мне нужно понять, как получить часть строки между последним тире и знаком 247.
Дело в том, что вид данных варьируется. Может быть разное количество тире, разная длинна значений между тире, однако длина нужной мне части варьируется от 1 до 3 символов (чаще 1 или 2, реже 3). Бился со строковыми функциями, пока нужного результата достичь не получается.

[Ethex]

Пример

[Ethex]

Под конец рабочего дня вывел что-то похожее на правду

...
Set rs = CurrentDb.OpenRecordset("SELECT ob FROM [Таблица]")
   Do While (Not rs.EOF)
      If InStr(1, rs.Fields("ob").Value, ChrW(247)) > 0 Then
      s = rs.Fields("ob").Value
      u = InStr(s, ChrW(247))
      s = Mid(s, 1, u - 1)
      b = Mid(s, InStrRev(s, "-"), u - 1)
      b = Replace(b, "-", "")
      Me.Список.AddItem Item:=b
      End If
   rs.MoveNext
   Loop
...

Пока не сворачиваюсь, буду тестить дальше