dim yuzde1 as double
dim i as integer
dim toplam as long
dim genel as long
yuzde1=0
toplam=0
genel=0
for i=0 to liste2.listcount
genel=genel+1
if liste2.column(2,i)= "Bursa" then
toplam =toplam+1
yuzde1=(toplam1*100)\genel
end if
next i
metin1.value=yuzde1
kodum bu buradaki yüzdeyi metin kutusuna Örnek 85,7 olarak yazdırmak istiyorum virgülden sonra 1 karakterden fazla olmasın