dediğiniz gibi denedim olmuyor

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