Проблемы с преобразованием типов - VB

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

Добрый день!
Пытаюсь написать программу на VB в Excel-е, которая (в числе прочего) считывает значения ячеек и объединяет их в одну строку:
Dim Txt As String
...
Txt = Txt + Cells(N, J)
В некоторых ячейках записаны числа (что для меня неважно), и Excel их как числа и распознаёт. Тогда возникает Run Time Error "Несовпадение типов". Если же я пишу так:
Txt = Txt + Str(Cells(N, J))
, то программа ругается, когда в ячейке попадаются не числа. :-(
Не знаете, как это обойти? Спасибо!

Решение задачи: «Проблемы с преобразованием типов»

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

                            <font color="blue">If</font> IsNumeric(Cells(N, J)) <font color="blue">Then</font>
     Txt = Txt + Str(Cells(N, J))
<font color="blue">Else</font>	
     Txt = Txt + Cells(N, J)
<font color="blue">End</font> <font color="blue">if</font>

                        