Извлечение из ячейки Excel числа в заданном диапазоне (на Visual Basic

Есть ячейка в Excel, в которой навалено без всякой системы информация подобного типа (числа и слова в разными разделителями):

162001879 л эн о/з рд с. Мезеновка 202043927 ; 380991897951 за эл энергию 

или еще пример:

126228496, н Иванов Петр Иванович ?СНИК щ/з Конотоп вул. Клубна 105 12 122162745 122162745

Нужно:

создать процедуру в Visual Basic, которая:

1. выбирает из заданной ячейки только число с девятью знаками, или число, которое больше 100000000 но меньше 999999999 (что одно и то же) и возвращает его в ячейку в которой стоит сама процедура.

2. если такого числа в исходной ячейке нет - возвращает пустую ячейку

3. если таких чисел несколько - возвращает одно из них (первое) и делает его красным цветом

4. если таких чисел несколько и они одинаковые - возвращает одно из них (первое) и делает его черным цветом (обычный результат)

5. Если ячейка пустая - выдает тоже пустую