بارویداد keyup به هنگام تایپ اعداد بصورت ستایی جدا می شوند

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        Try

            Me.TextBox1.Text = Format(CLng(Me.TextBox1.Text), "###,###,###,###,###;;0")

            Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length

        Catch

            Exit Try

        End Try

    End Sub