Разделение текста в ячейках Exel - VB

Формулировка задачи:

Доброе утро! Не знаю как создать макрос для автоматического разделения "двухэтажных числовых значений". Конкретно эта таблица экспортирована из ПК Гранд Смета. И в таблице имеется столбец с этими "двухэтажными цифрами" которые отображают норму расхода учитываемых ресурсов и произведение нормы на количество выполненных работ. Важны оба значения, чтобы "верхний этаж значений" был в одном столбце, а "нижний этаж значений", например, в соседнем столбце. Как записать такой макрос???

Решение задачи: «Разделение текста в ячейках Exel»

textual
                            Листинг программы 
                        

                            Dim I AS Long, TestStr as String
TestStr=Cells(здесь номера строки и колонки "двухэтажной" ячейки через запятую).Value
I=1
Do While I<=Len(TestStr)
    MsgBox Mid(TestStr, I, 1)+" "+Str(Asc(Mid(TestStr, I, 1))) ' Выводим содержимое ячейки посимвольно с кодом
    I=I+1
Loop

                        