مشکل جدا کردن ارقام در ویندوز 8

سلام.
من برای اینکه برای مقادیر پولی که بشه بهتر اعداد رو دید از کد زیر استفاده می کنم که سه رقم سه رقم جدا می کنه :

کد:

---

        sender.Text = Format(Val(sender.Text.Trim.Replace(",", "")), "#,0") '& aa
        sender.SelectionStart = sender.TextLength
        Dim _Value As Double = CLng(Replace(sender.Text, ",", ""))

---

اما این کد در ویندوز 8 جواب نمیده . یعنی فقط میشه 3 رقم توی تکست باکس نوشت و اجازه بیشتر از اون رو نمیده. چرا؟ چاره چیست؟!:n27:

کسی به این مشکل بر نخورده؟!!
البته این رو هم بگم که فقط روی برخی از سیستم ها این طور میشه. اما به هر حال این هم مشکلیه که باید حل بشه.