Sayın maras321;
Örnek ekleseydiniz net sonuç alırdık ama şimdi tahminen yapmak zorundayız:
1- Listenin altındaki metin kutusu Metin1 olsun. Listenizin adı da Liste1, verilerin bulunduğu sütun da 3.sütun olsun.
Bu durumda:
dim say as integer
Metin1=0
for say=0 to liste1.listcount
Metin1=Metin1 + Liste1.column(2)
Next

2- Adet yazdıracağınız metin kutusu metin2 olmuş olsun.
Metin2=liste1.listcount
'eğer sütun başları varsa
Metin2=liste1.listcount -1

Kolay gelsin.