TextBox İçerisinde Sayıların Virgül ile Ayrılması

Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,###")
SendKeys "{end}"
End Sub