[VB] ปัญหาเครื่องหมายคั่นตัวเลข เเละ ตำเเหน่งของเคอร์เซอร์ใน textbox ครับ

Dim number As Integer
        Dim str As String

        number = TextBox1.Text
        str = number.ToString("#,#")
        TextBox1.Text = str
        TextBox1.Select(TextBox1.Text.Length, 1)

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       Dim number As Double
       Dim str As String

       number = TextBox1.Text
       str = number.ToString("#,##0.00")
       TextBox1.Text = str

   End Sub