Run time error 5025 when loading string

[JohnL55]

Run-time error '5025'
Buffer for return string is too small

Opening a Word7 document and copy string to clipboard.
Dim outfile as String
or outfile as String * 5000

wd.EditSelectAll
outfile = wd.Selection$() 'error here