สอบถามเกี่ยวกับ textBox ทีครับ คือว่า ผมจะกำหนดยังไงให้ใน textbox สามารถพิมพ์เลขได้ไม่เกินที่กำหนดไว้เช่น ห้ามเกิน 1000 เราสามารถใส่ได้เต็มที่ 999.99

If TextBox1.Text.Length <> 0 Then
            If (TextBox1.Text) > 1000 And Mid(TextBox1.Text, TextBox1.Text.Length, 1) <> "." Then
                TextBox1.Text = Mid(TextBox1.Text, 1, TextBox1.Text.Length - 1)
                TextBox1.Select(TextBox1.Text.Length, 1)
            End If
        End If