Excel. запись значения из переменной String в ячейку - VB

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

Проблема в следующем, в процедуре имеем cells(1,1).Value = cTxt, где cTxt переменная типа String, если длина строки больше 255 символов то в ячейку попадают только первые 255, как сделать так чтобы все содержимое cTxt попало в ячейку?

Решение задачи: «Excel. запись значения из переменной String в ячейку»

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

                            <font color="blue">Dim</font> CaptionWindow1 <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> CaptionWindow2 <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> CountSheet <font color="blue">As</font> <font color="blue">Integer</font>
    CaptionWindow1 = ActiveWindow.Caption
    Workbooks.Add
    CaptionWindow2 = ActiveWindow.Caption
    ActiveWindow.WindowState = xlMaximized
    Workbooks(CaptionWindow1).Worksheets(<font color="teal">"List1"</font>).Copy Before:=Workbooks(CaptionWindow2).Worksheets(<font color="darkblue"><b>1</b></font>)
    Windows(CaptionWindow2).View = xlPageBreakPreview
    Windows(CaptionWindow2).View = xlNormalView
    CountSheet = Workbooks(CaptionWindow2).Worksheets.Count
    Application.DisplayAlerts = False
    <font color="blue">For</font> i = CountSheet <font color="blue">To</font> <font color="darkblue"><b>2</b></font> <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
        Workbooks(CaptionWindow2).Worksheets(i).Delete
    <font color="blue">Next</font>
    Application.DisplayAlerts = True
    Workbooks(CaptionWindow2).Worksheets(<font color="darkblue"><b>1</b></font>).<font color="blue">Name</font> = <font color="teal">"List1"</font>
    Workbooks(CaptionWindow1).<font color="blue">Close</font> SaveChanges:=False
                        