سوال از تکس باکس

سلام
من می خواستم ببینم کدی هست که نوشته داخل تکس باکس رو سه تا سه تا جدا کنه دقیقا برای نمایش پول می خوام.
ممنونم

سلام
اينم كدش:

کد:

---

Private Sub Text1_Change()
    If Text1.Text <> "" Then
        Text1.Text = Format(Text1.Text, "##,0")
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub

---

سلام
palizesoftware من از شما خیلی ممنونم مشکلم حل شد.