Cells can contain text with length up to 32k. But a msgbox can only display
1024 characters.

Sub test()
Dim s As String
Dim i As Long
Const SomeText As String = "This text is 32 characters long "

s = SomeText
For i = 1 To 1000
s = s & SomeText
Next

Range("a1") = s

s = ""
s = Range("a1")

MsgBox Len(s) ' 32032

MsgBox Mid(s, 32000, 32)

End Sub

Regards,
Peter T


"loyso" wrote in message
...
Hi!

My case: I have an xls file with the only one worksheet.
The first cell of this worksheet contains a text more then 4 kb length.

The .Text property for that Cell returns only first 1024 characters. I see
this in the following example:

For Each ws In Worksheets
MsgBox ws.Cells(1, 1).Value
MsgBox ws.Cells(1, 1).Text
Next ws

Q: How can I get whole text from this cell?

Thanks in advance!


Bye.

--
Alexei Baskakov