چگونه می توان عدد داخل برچسب را به صورت پولی نشان داد؟

[leila71]

چگونه می توان عددی را که در داخل یک برچسب است را به صورت پولی نشان داد؟ یعنی سه رقم سه رقم جدا کرده و نشان دهد.از دوستانی که اطلاعی دارند خواشمندم راهنمایی فرمائید با تشکر فراوان

[behnam2010]

سلام با این میتونی به صورت پولی نشان بدی و اگه خواستی تو دیتابیس ذخیره کنی از متغیری که ایجاد کردی استفاده کن

Dim str As Integer

If textbo1.Text.Length > 3 Then
SendKeys.Send("{End}")
str = Format$(textbo1.Text.Replace(",", ""))
textbo1.Text = Format$(Val(str), "###,###,###")
End If