>>675
こんなん？

dim i, j as Integer
dim s as String

for i = 0 to ListBox1.ListCount - 1//行数分繰り返す（0発進なので-1する）
for j = 0 to ListBox1.ColumnCount - 1//列数分繰り返す（0発進なので-1する）
s = s + ListBox1.cell(i, j)//i行の一番左の列から一番右の列まで足しまくり
next
s = s + chr(13)//足しまくりに改行を足す
next