Как экспортировать форматирование из ячейки эксель в бейсик? - VB

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

Проблема следующая: я ячейках эксель хранятся химические формулы типа Н2О, естественно все цифры отформатированы как подстрочные символы. Но при экспорте данных в бейсик форматирование теряется и цифры становятся обычными. После этого из формул и проч. формируется текст, который снова пересылается в ячейку эксель. Но текст уже с большими цифрами.
Кто-нибудь посоветует, как сохранить исходное форматирование? Или еще какие-то пути решения проблемы, например тупо пролистать формулу, полученную из ячейки и все цифры сделать подстрочными (но я не знаю, как это сделать в бейсике). Help!!!

Решение задачи: «Как экспортировать форматирование из ячейки эксель в бейсик?»

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

                            Dim i As Integer, t As String
With Cells(5, 5)
t = .Value
For i = 1 To Len(t)
  If Mid$(t, i, 1) Like "[0-9]" Then .Characters(i, 1).Font.Subscript = True
Next
End With

                        