Textbox da sayı arasına nokta koyma

[seddur]

İyi akşamlar dileklerimle bir konuda yardım almak istiyorum.Userform3 de Oluşturduğum textboxda aşağıdaki kodu çalıştırdığımda çıkan rakamlar bitişik oluyor,okunması zorlaşıyor.Örneğin 1.000.000 TL. şeklinde yazsın istiyorum.Yardımcı olacak arkadaşa teşekkür ederim.

Dim i As Long, t1 As Double
For i = 1 To UserForm15.pencere4.ListItems.Count
topla = topla + Val(UserForm15.pencere4.ListItems(i).SubItems(3))

Next i
UserForm3.TextBox1.Value = topla

 

[Orion1]

Aşağıdaki gibi deneyiniz.

Dim i As Long, t1 As Double
For i = 1 To UserForm15.pencere4.ListItems.Count
topla = topla + cdbl(UserForm15.pencere4.ListItems(i).SubItems(3))

Next i
UserForm3.TextBox1.Value = format(topla,"#,##0.00")