text1.text = format(text1.text,"###,###")
format fonksiyonunu kullanacaksın. aşağıdaki örnekleri inceleyebilirsin. Bu komutu text1 in change olayına yazacaksın
Alıntı
Dim result As Single
result = 3456.7
Label5.Caption = Format(result, "00000.00") 'displays: 03456.70
Label5.Caption = Format(result, "#####.##") 'displays: 3456.7
Label5.Caption = Format(result, "##,##0.00") 'displays: 3,456.70
Label5.Caption = Format(result, "$##,##0.00") 'displays: $3,456.70